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By Thomas W. Woody 
Tektronix, Inc. 

Beaverton, OR 

Dynamic Graphics* brought powerful in- 
teractivity to the TEKTRONIX 4054 
Desktop Computer. Now the 4054 has 
taken another technological leap: Color 
Enhanced Dynamic Graphics. This new 
option allows refreshed objects to be 
moved around on the graphics screen in 
a contrasting orange color. Enhancing 
Dynamic Graphics with color clearly dis- 
tinguishes refreshed objects from stored 



objects which are in the familiar green 
color. And displaying a refreshed image 
over a stored image achieves a third co- 
lor — very useful for highlighting text or 
objects. 

Packaging a desktop computer with very 
high resolution (4096 x 4096 addressable 
points), Dynamic Graphics, and a second 
color required a major technological ad- 
vancement. To understand this technolo- 
gy, let’s take a look at the Direct View 
Storage Tube (DVST), the Write-Thru 
operation, and the Over-Write features. 




Figure 1. Operation of the direct view storage tube. Flood electrons continuously bombard the phos- 
phor. In the absence of writing-gun electrons, flood electrons maintain the phosphor at the flood-gun 
cathode potential of 0 volts. When writing-gun electrons strike the phosphor, the phosphor is charged 
past a threshold to maintain a stored charge image. 



*Miki Tokola, “Refreshed Graphic Objects on 
the 4054,” TEKniques Vol. 3 No. 5. pp. 1-3. 
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DVST Operation 

A Direct View Storage Tube (DYST) op- 
erates on well known principles that are 
briefly reviewed here. Figure 1 shows a 
simplified DVST structure. A DVST 
consists of a writing gun that operates at 
a negative potential with respect to the 
target. The phosphor target resides over 
a transparent electrical conductor, and a 
dot array of conductive collectors is ar- 
ranged in a uniform fashion across the 
surface of the conductor. Near the back 
of the funnel wall of the cathode ray 
tube (CRT) is an array of flood guns in 
which the cathode is grounded and the 
anode is at a positive potential. 

When the DVST is in normal use for dis- 
playing stored information, the writing 
gun is used to scan the target. As the 
writing-gun beam scans the target, a 
charge is left on the phosphor dielectric. 

Because the charge image areas are at a 
positive potential relative to the flood- 
gun cathode, the flood electrons strike 
the target in the written areas and cause 
the phosphor to luminesce. All of the ar- 
eas that were not written are maintained 
at an average potential much lower than 
the written areas. The areas written up 
are called fully- written, and the unwrit- 
ten areas are known as ready-to- write. 
Figure 1 shows a magnified view of the 
target structure. 

To erase the target and prepare it for 
new information, a pulse is applied to 
the STB, which capacitively couples the 
pulse to the phosphor. This pulse, cou- 
pled with the flood-gun electrons, uni- 
formly fully writes the phosphor and eli- 
minates the ability to resolve between 
former ready-to-write and fully-written 
areas. The balance of the erase restores 
the entire target to a ready-to-write state. 

This simple description shows how a 
DVST is used to display data in the 
stored mode. Once the target is stored, 
no further refreshing or rewriting of the 
information is necessary. 

Write-Thru, How it Works 

Because of its basic nature, the DVST 
must be erased every time a new page of 
information is to be displayed. Although 
the erasure time is not long (about 1 to 
1.5 seconds), if the information is to be 
changed only slightly, rewriting a com- 
plete page of data can take several sec- 
onds depending on the throughput rate of 
the system. 

The need for interactivity and faster re- 
sponse for DVSTs was recognized, and a 



technique called write-thru was devised. 
Write-thru displays information on the 
phosphor target at a current density 
lower than that required to charge or 
write the phosphor target. If the repeti- 
tion rate is adjusted properly along with 
beam current, the refreshed image will 
luminesce but will not store. This feature 
is already available in many DVST dis- 
plays. Options allow the displays to re- 
fresh a number of vectors at an average 
vector length of 1 cm. One drawback to 
this technique is that the refreshed infor- 
mation appears at approximately the 
same brightness as the stored informa- 
tion and also at the same color. As a re- 
sult, write-thru can sometimes confuse 
the observer if the refreshed information 
overlaps the stored information, as in the 
case of multilayer-circuit-board design or 
facilities design. 



1976 CIE-UCS Chromaticity Diagram. 



Color Write-Thru Operation 

One way to overcome this problem is to 
present the refreshed data in a different 
color. The display is then much more 
viewable, and information is more dis- 
cernible. The color write-thru DVST de- 
scribed here uses a greenish-yellow color 
as denoted on the 1976 CIE-UCS 
chromaticity diagram (see Figure 2, point 
A). 

The method used to obtain the greenish- 
yellow color was fairly straightforward. 
A simple mixture of red phosphor with 
the green produced a write-thru color as 
noted previously. The color obtained is 
dependent on the proportion of each 
phosphor. As shown in Figure 2, the line 
represents this operating area from the 
green to the red phosphor. The two reds 
used most frequently are yttrium oxysul- 
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fide and yttrium oxide, which have ex- 
cellent high-voltage efficiency character- 
istics. 

Determining how much red phosphor to 
add was subject of another, separate 
study. Color shift is defined as the linear 
distance that the write-thru information 
is shifted from the stored information 
along the line shown in Figure 2. The 
minimum discernible color shift for high 
view comprehension level required that 
the red phosphor be 40% to 60% of the 
target by volume. This phosphor mixture 
reduced green stored luminance to about 
4 foot lamberts. Because of this decrease 
in performance, a new tube envelope and 
flood-gun design were used, which 
helped to increase the flood-gun current 
density to the target and thereby in- 
crease the stored luminance. In addition 
to the use of a new funnel, the phosphor 
materials were processed in such a way 
as to increase the nominal operating 
point and thereby obtain additional lumi- 
nance output. 

Another by-product of phosphor process- 
ing also enhances viewability. Normally, 
a mixture of phosphor used as a storage 
target would also present the stored in- 
formation in the resultant mixed color. 
However, the processing forms a dead 



layer on the surface of the red phosphor 
that causes the red phosphor to not lumi- 
nesce until it reaches about 400 volts. 
Because the operating point of the target 
is less than 300 volts, there is a 100-volt 
margin before the red phosphor begins to 
luminesce. This shallow dead layer min- 
imizes the loss in luminance when the 
writing-gun brightness is achieved with 
the greatest overall color shift. 

These improvements resulted in a new 
DVST that retains and improves upon 
the viewability of previous DVSTs. 
Stored luminance was increased by 60% 
as a result of the greater flood-gun cur- 
rent density and operating point. The 
predominant feature is the improvement 
in write-thru viewability by the addition 
of a red phosphor. 

“Over- Write” 

A feature that was not available in the 
single-color display is called “over- 
write” rather than write-thru. If some 
data is stored, and then the same image 
is refreshed on top of the stored data, 
another viewable color is seen halfway 
between green and normal write-thru. 
This color is shown as point B on Figure 
2. This feature is called over- write. With 
this feature, one can obtain two levels of 



color shift that are discernible from each 
other. This feature can easily be used to 
highlight information whether graphic or 
alphanumeric. 

With proper software, the color write- 
thru and over-write features expand the 
usefulness of the DVST display. While 
still retaining its inherent low cost, high 
resolution, and flicker-free performance, 
the display can be much more interactive 
with the added dynamics capability. 

Factory Installation 

Because the Color Enhanced Dynamic 
Graphics is a new technology, an exist- 
ing 4054 cannot be field upgraded. The 
different CRT, electronics, and mechani- 
cal packaging require the Color En- 
hanced Dynamic Graphics to be a 
factory installed option. 

To learn more about this exciting option, 
contact your local Tektronix Sales En- 
gineer. 
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Low-Cost CADD System 
Communicates Numerically 
and Graphically 



Cover Photo: Arrigoni Computer Graphics’ TOUCH N’ DRAW^^ integrates their unique Touch Control 
Station^^ and MENU BOARD^^ with the TEKTRONIX 4050 Graphic System, 4663 Plotter and 4907 
File Manager for low cost, time saving design station. (Courtesy of Arrigoni Computer Graphics.) 



by Patricia Kelley 
TEKniques Staff 

Developing floor plans and building ele- 
vations; integrating lighting, heating, ven- 
tilation, plumbing and wiring; tracking 
materials; computing floor area; estimat- 
ing costs; and generally organizing the 
multitude of details for a commercial or 
industrial building requires an archi- 
tect/designer or facilities manager to 
spend immense amounts of time draw- 
ing, estimating and calculating. While 
Computer Aided Design and Drafting 
(CADD) has been around for quite a few 
years to aid designers, few systems have 
been tailored specifically for archi- 
tects/facilities applications. System 
prices have generally been out of reach. 
Furthermore, most systems required an 
operator well versed in computers. Arri- 
goni Computer Graphics is changing 
that. 

Seeking better ways to control all the 
tasks and responsibilities associated with 
his firm’s work in commercial and indus- 
trial lighting design, David Arrigoni 
turned to a desktop computer to imple- 
ment a CADD System for his architec- 
tural and electrical design needs. He 
then worked with programmers with ar- 
chitectural backgrounds to create soft- 
ware that communicated in designers’ 
terms. What resulted was a complete, 
low-cost CADD system so powerful they 
decided to extend it and share it — a 
package created by designers for design- 
ers. Based around this unique system 
David Arrigoni formed Arrigoni Compu- 
ter Graphics. 

Because the TEKTRONIX 4050 Series 
Desktop Computer possesses the high re- 



solution designers require, plus stand- 
alone intelligence, at a reasonable cost, it 
forms the core of the hardware. Coupled 
to the 4050 is the unique Arrigoni Z-80 
microprocessor-based Touch Control 
Station^M, the TEKTRONIX 4907 File 
Manager and 4663 Plotter, and a digitiz- 
ing tablet with a MENU BOARD™. The 
TOUCH ’N DRAW™ software combines 
with the hardware to create a design and 
drawing production system. 

The configuration is an electronic exten- 
sion of normal drafting tools. Arrigoni 
Vice President Robert Aston analogized: 
“The digitizer is the drafting table, the 
cursor is the drawing implement, the 
disk is a sheet of paper, and the plotter 



produces the final copy — another pen 
in hand. The 4050, Touch Control Sta- 
tion^^ and TOUCH ’N DRAW^^ soft- 
ware perform the details of drafting leav- 
ing the architect or engineer free to 
create.” Aston pointed out that the de- 
signer treats the disk as he would a sheet 
of paper. In a normal design environ- 
ment, one person doesn’t do everything. 
Thus, a disk may be passed from design 
center to design center just as he would 
a sheet of paper. 

The designer communicates to the sys- 
tem through the Touch Control 
Station'^^, using pre-prepared graphic 
menus. There is no need to translate ide- 
as to alphanumerics, no need to learn a 
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command language, no need for skilled 
typing. A designer with a computer 
background is not required. The archi- 
tect, draftsman or engineer simply points 
to a menu item on the Touch Control 
Station™ (or alternatively, to the MENU 
BOARD'^^) to enter a command. Ac- 
cording to David Arrigoni, three days’ 
training on the system at the customer 
site will get the user to the point of de- 
veloping quality drawings. 

TOUCH ’N DRAW'TM is structured ac- 
cording to normal arqhitectural drafting 
phases. The plans may be drawn a layer 
at a time, analagous to pieces of “see- 
through” paper, one on top of another. 
For example, one layer for the basic 
wall, door and window outline, one for 
electrical information, one for plumbing 
details, one for textures, and so forth. A 
unique global editing feature enables the 
designer to move all those items within a 
series of layers, i.e., to move a wall and 
bring along all the doors, windows, elec- 
trical outlets, plumbing, etc; or, he may 
opt to move an individual item within 
one layer. 

Architectural Floorplan Program 

Complete, precise architectural floor 
plans are produced using this program. 
The designer defines his plan by touch- 
ing the menu symbol which represents 
the desired design detail (Figure 1). He 
may position the wall, window, etc., 
“.graphically” by digitizing its position 
points on the tablet, or at the screen. 
The exact size or length of an item, e.g., 
the specific diameter of a circle, or spe- 
cific length of a wall, can be entered 
“numerically.” The program automati- 
cally scales this input to the size of the 
drawing. The first point entered is for 
beginning, second point, is for direction, 
and a number is entered from the key- 
board for actual size. 

Walls may be snapped into perfect hori- 
zontal or vertical alignment (an electron- 
ic T-square). Over 250 special functions, 
including noodling (Figure 2), door and 
window insertion, variable wall 
thicknesses, dimenisioning and curve fit- 
ting may be used. The designer may se- 
lect from a variety of windows, doors 
ancj other architectural symbols. He may 
request multiples of that symbol, for in- 
stance, ask for six windows positioned at 
five-foot intervals along a wall. 

As the design is created, it is displayed 
on the screen. Once completed, it may 
be stored on disk. Existing floor plans 
may be easily modified and saved allow- 
ing the plans to keep pace with architec- 




Figure 1 . Designers communicate by touching an item on the acetate menu placed on the Touch Control 
Station^*^ (or alternatively on the MENU BOARD^'^ placed on the tablet). 




Figure 2. Special functions include noodling. 




Figure 3. Completed design using the Architectural Floorplan Program may be archived and changed as 
facilities are expanded or modified. 
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tural changes. The floor plan can be ar- 
chived and changed when facilities are 
expanded or modified. 

General Drawing Program 

Single line work, as well as very sophis- 
ticated work, may be accomplished using 
this program. Details may be added to 
the architectural floorplan, new draw- 
ings, site plans or general layout work 
done. Curve fitting, dimensioning, dot- 
dash, polygons, circles and mirroring are 
just a few of the functions. Unique relo- 
catable objects may be created, saved 
and re-used. For instance, an architect 
may design a bathroom for an apartment 
complex which will be the same in 30 
units. He can design it once, then place 
it 30 times. Or, where entire floors are 
similar, he could design the first floor, 
make changes, copy it to the second, 
and so on. A layout may be reversed and 
repeated (mirroring). This program re- 
moves the designer from routine and re- 
petitive use of rulers and templates, thus 
allowing him to create and design. 

Symbol Placement Program 

Continuing the analogy, Aston referred 
to the symbols as a sophisticated, tem- 
plate. TOUCH ’N DRAW™ proVides 
1000 symbols — trees, landscape, furni- 
ture, people, air duct grills, electrical 
symbols and so on for almost anything 
that can be visualized. The designer is 
freed from templates and press-on trans- 
fers. Using this program, the plans de- 
fined through the previous two programs 
are enhanced. A special package sup- 
ports the 4054 dynamic graphics option 
enabling the designer to dynamically 
move symbols around rapidly and to the 
appropriate drawing scale. Symbols can 
be repeated along a line with several op- 
tions for automatic spacing as well as re- 
peated placement within an area. 

Menu Generation Program 

This program complements the Symbol 
Placement Program allowing the designer 
to create his own library of symbols. He 
traces a symbol or object on the digitiz- 
ing tablet or creates it on the graphic 
screen. Using this program, new acetate 
menus also may be plotted then placed 
on the Touch Control Station'^^ or 
MENU BOARD™ at the digitizing ta- 
blet. 

Texturing Program 

Replacing press-on texture transfers, this 
program contains a wide range of area 
and line textures; for example, bricks. 



DRAWN FOR: USER 1.1-AUG-81 

PLOTTER : Tektronix 4663 

SOFTWARE- Arrigoni Computer Graph ics^ Inc. 
Son Jose^ Cal iTornio 




SITE PLRN / LRNDSCRPE PLRN 



Figure 4. Curve fitting, dimensioning, polygons, circles and mirroring are just a few of the functions of 
the General Drawing Program. 
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concrete, shrubbery, insulation, shingles, 
flooring, and simple crosshatching. Any 
area or object may be textured, even ob- 
jects within objects — the doughnut ef- 
fect. When dealing with overlaid objects, 
the first object selected is textured while 
the next selected object within (or over- 
lapping) the first is ignored. 

The densities of the texturing patterns 
may readily be changed and the patterns 
rotated or shifted. 

Additionally, the program will calculate 
areas or lengths of line that are textured 
providing the ability to automatically 
measure and cost textured areas. For ex- 
ample, the linear feet of eight-foot stud 
walls with insulation or the number of 
square yards of carpet would be auto- 
matically calculated and saved for cost- 
ing at a later time. 

Annotation Program 





Figure 7. A wide range of area and line textures are available through the Texturing Program. 



As in all graphic applications, the text 
accompanying the drawings carries a sig- 
nificant amount of explanatory informa- 
tion. Therefore, seven fonts are provid- 
ed: Standard Leroy, Helvetica-Medium, 
Ero-Style, British Inserat, Prisma, Aries 
and Clarendon. The designer may also 
design his own letters. Characters are 
stroked and may be sized, rotated, and 
placed anywhere on the drawing. 




Figure 8. The Annotation Program includes seven 
fonts, four of the styles are shown here. 



Area/Line Measurement Program 

This electronic planimeter allows the de- 
signer to identify areas for calculation 
even if they weren’t textured. For exam- 
ple, he could trace each room in a build- 
ing and calculate the total square feet as 
well as that for each room. Or, he could 
outline a roofline and cost it. The design- 
er may also identify a number of closed 
objects or polygons and add them 
together for area calculation. 

After creating one or more closed ob- 
jects or shapes, such as rooms or map- 
ping boundaries, the designer can re- 
quest the program to calculate the area 
or perimeter of each selected shape and 



draw the resulting numeric data at any 
location “touched” on the drawing. By 
naming each object, a table of areas and 
perimeters can be produced. 

If selected, the table of areas and 
perimeters may be sent to the Cost Esti- 
mating Program. 

Cost Estimating Program 

This program counts the number of sym- 
bols on the drawing disk, the lengths of 
lines and textured areas, and then writes 
this information on the screen. The de- 
signer may call on a master material/cost 
file (or enter the labor and material cost 
for each) and the program will extend 
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and accumulate the material and labor 
cost for the entire project. For example, 
if the design contains 500 standard elec- 
trical receptacles, the designer can enter 
a cost of $153 per 1000 receptacles and 
the program will automatically calculate 
the cost for 500. 

Updating a master costing file is simple 
and quick. The designer enters the cur- 
rent cost of an item and the program au- 
tomatically updates the master costing 
file. This feature may be employed to 
generate a series of cost estimates re- 
flecting different bids. Cost estimating is 
more accurate, more efficient and very 
quickly done. 

Production Plot Program 

Final drawings are generated through 
this program. It is extremely flexible, al- 
lowing the designer to reproduce an en- 
tire drawing or only a specified part. He 
may overlay an infinite number of draw- 
ings in any sequence. He might ask for 
an architectural floor plan with or 
without texturing, annotation, symbols 
or details. Or he could include a site plan 
in the corner of a drawing. 

After previewing the plot on the screen, 
it may be plotted in any scale, resulting 
in an original drawing then readily dupli- 
cated in a blueprint machine. He can al- 
so communicate this information to 
another computer using the 4050 Option 1 . 




Utilities Programs 



Figure 9. Cost estimating is accurate, efficient and quickly done using the Cost Estimating Program. 



Ten utility programs for the designer 
take the drudgery out of using computer 
equipment through simple “yes-no” 
questions. The designer may copy draw- 
ings from disk to disk, or onto the same 
disk, allowing use of one drawing as a 
base to make another drawing. 



Special Applications 

Arrigoni Computer Graphics has also 
tailored versions of TOUCH ’N 
DRAW'^^ for specific disciplines and 
more programs are in the works. “They 
won’t do any more than the basic CADD 
system, but they do it more efficiently 
for that particular trade or application.” 
commented David Arrigoni. 

An example of a special application 
package is the Electrical/Electronics 
Schematics package. It has combined 
standard elements of the system to pro- 
vide a unique package for electrical engi- 
neers producing schematics drawings for 
electrical and electronic circuits. 




Figure 10. The Production Plot Program produces the final drawing. 
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Figure 11. Electrical engineers producing schematic drawings for electrical and electronic circuits might 
choose the special Electrical/Electronics Schematics package. 



The success of the Arrigoni Computer 
Graphics TOUCH ’N DRAW^^ can be 
attributed to the excellent user interface. 
The designer simply auto loads a tape. 
The program prompts for input and 90% 
of the questions require “y®s-no” re- 
sponses. Prompts and questions use ter- 
minology familiar to designers or drafts- 
men and purposely avoid 
“computerese.” Visual feedback through 
messages and lights on the Touch Con- 
trol Station'^^ keep the user informed of 
where he is. If the designer has to leave 
his system for a while, the status lights 
let him know where he was when he left. 

Although TOUCH ’N DRAW^m was de- 
signed to open up the opportunity for 
small to medium sized firms to use 
CADD Systems, the Systems application 
extends to the largest architectural firms 
and facilitates planning and management 
for Fortune 1000 companies. Thus, the 
System can handle extremely large pro- 
jects; one customer is designing buildings 
totaling over three million square feet. 

The total system (including the hard- 
ware, software, and training) may be 
purchased; or it may be leased at a 
monthly cost approximating that of an 
average draftsman. David Richards, 
President of Arrigoni Computer Graph- 
ics, indicates that productivity improve- 
ments of 3-5 times versus manual draft- 
ing are typical with this system. 



If you have further questions about the 
Arrigoni TOUCH ’N DRAW^^ CADD 
System, contact Arrigoni Computer 
Graphics at 231 O’Conner Drive, San 
Jose, CA 95128 or phone (408) 286-2350. 



Note: As a service, TEKniques may publish no- 
tices of software, hardware and services from 
suppliers other than Tektronix. No evaluation 
or endorsement by Tektronix, Inc. of these 
products or services is implied by such publica- 
tion. Tektronix, Inc., expressly disclaims any 
obligation of warranty or support. 
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Digitized curves of constant nuclear polarization in nuclear D(d,n)He^ reactions. A point grid adds 
visual reference points. 

New PLOT 50 Digitizing Software 
Encodes Graphic Images 



by Paul J. Kristof 
Tektronix, Inc. 

Wilsonville, OR 

4052D07 PLOT 50 Interactive Digitizing 
solves the data entry problem for a vari- 
ety of applications. By coupling the digi- 
tizing tablet with the graphic display and 
computational power of the 4052 and 
4054 desktop computers, disk-based In- 
teractive Digitizing efficiently and conve- 
niently encodes graphic images for com- 
puter analysis or processing. Stripcharts, 
graphs, maps. X-ray photographs, 
electromicrographs, and other images are 
readily translated into machine digestible 
form. Immediate preview and editing 
help ensure the transmittal of “clean,” 
error-free data. Mathematical functions 
calculate area, perimeter, centroids or 
line lengths. Document labeling and text 
may also be transmitted. 

Interactive Digitizing supports PLOT 50 
Standard File Format^ and Graphic Ex- 
change Format^. Curves encoded from 
stripcharts, or area and centroid values 



^Standard File Format is discussed in TEK- 
niques Vol. 4 No. 1. 

^Graphic Exchange Format is discussed in 
TEKniques Vol 5 No. 2. 



from digitized polygons may be sent to 
PLOT 50 Easy Graphing^ or PLOT 50 
Statistics^ for graphing or analysis. Pic- 
ture data can be sent to PLOT 50 Picture 
Composition^ for inclusion in illustra- 
tions. In any case, you need not re-enter 
the data. 

Data may be encoded in real world coor- 
dinate units and the X and Y axes may 
be independently scaled. For example, to 
digitize experimental data from a nuclear 
reaction, you could set X units to volt- 
age in Mevs and Y units to reaction an- 
gle in degrees. Documents larger than 
the tablet surface are easily handled. 

Interactive Digitizing consists of four 
major sections: 

TUTORIAL 

AUTOLOAD 

ENTRY/EDIT 

UTILITIES 

The TUTORIAL gives you a guided tour 
of Interactive Digitizing. It illustrates 



^Easy Graphing is described in TEKniques Vol. 
4 Nos. 2, 3 and 4. 

^Statistics: Disk-based Tests and Distributions is 
described in TEKniques Vol. 4 No. 5. 
^Picture Composition is described 
in TEKniques Vol. 5 No. 1. 



many of the features and shows a typical 
sequence of activities to create a digi- 
tized data file. 

The AUTOLOAD section sets up the op- 
erating characteristics of the package. 
Disk assignments and peripheral device 
selections are set or modified at this 
time. 

The ENTRY/EDIT section creates or ed- 
its digitized data files. 

The UTILITY section applies file and 
system manipulation functions. 

Digitized Data Files 

First, we’ll take a look at the format of 
the digitized data file. 

Document features are recorded in the 
“digitized data file,” an ordered list of 
objects. Coordinate data and document 
text is encoded in five object types: 

POINT 

A single (x,y) coordinate. 

POLYLINE 

A set of connected lines or circular 
arc segments. 

POLYGON 

A polyline in which the first and last 
points are the same (a closed figure). 

TEXT 

A set of scalable and rotatable charac- 
ters. 

SYMBOL 

A set of points, line segments, arcs 
and text (not necessarily connected) 
that can be located, scaled and rotat- 
ed as a unit. 

In addition to the graphic descriptions, 
each object has an object identification 
(ID) number, and may have an object 
name and a set of numeric or string at- 
tributes. The system assigns the object 
ID number when an object is stored in 
the data file. This identifies the object 
for editing. 

You may assign a thirty-six (max) char- 
acter name to each object. 

A powerful feature of the package is the 
ability to assign up to five unique attrib- 
utes for each object and (optionally) 
have the program prompt for these at- 
tributes. The attributes are specified as 
numeric or alphanumeric and named. 
The object’s name and its attributes may 
then be used by software that has been 
custom-designed to look for and process 
them. 
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Thus, a data file might consist of: 

• The map of Arizona encoded as 
Polyline objects, with two 
numeric attributes: left county id and 
right county id. (See figure 1.) A sep- 
arate host program could then use the 
coordinate data and the attributes to 
reconstruct the counties as polygons. 

• The map of Oregon showing big game 
management units encoded as 
Polygon objects with an object name and 
a numeric attribute. The name of the 
area was entered for the object name. 
The attribute, UNIT CODE, identifies 
each polygon. Additionally, the area of 
each polygon was calculated as it was 
digitized. 

The UTILITY program. List Data 
File, may be used to output the size 
of each unit in square miles (figure 2). 
The area information could also be 
transmitted to the PLOT 50 Statistical 
volumes for study. 

• The contours in figure 3 were encod- 
ed as Polylines and Polygons with a sin- 
le numeric attribute, LEVEL, to hold 
the elevation value for each line. 




Figure 1. A map of the counties of Arizona encod- 
ed as polylines. The numbers appearing adjacent 
to the lines are the object ID numbers assigned by 
the system. 




Figure 3. Choosing menu item INFO displays the 
status of your current operation. 



Briefly, that is the structure of the digi- 
tized data file. Getting the image encod- 
ed from the document to a digitized data 
file is easy and flexible. 

EDIT/ENTRY 

Interactive Digitizing is menu driven for 
convenient function selection. The 
ENTRY/EDIT section is tablet menu 
driven. Simply locate the tablet menu 
anywhere on the tablet surface along 
with your document. To choose a func- 
tion, just place the tablet cursor over the 
appropriate menu box and digitize. The 
package prompts you for additional in- 
put. 

Tablet menu (figure 4) functions are gro- 
uped into seven functional blocks: 

• OBJECT ENTRY 

— mode selection 

— object insertion control 

— area/length/centroid calculation 

— point entry and immediate edit 

• DISPLAY CONTROL 

— highlighting of current object 

— redraw 

— window selection 

— point previewing 

• EDIT CONTROL 

— data file object sequence 

— object 

• SYMBOL CONTROL 

— symbol selection 

— scale and rotation setting 

• ENVIRONMENTAL PARAMETERS 

— feature selection 

— value setting 

— parameter display 

• ALPHANUMERIC KEYBOARD 

• SUPPLEMENTAL FUNCTIONS 

— plotting 

— setting new data file 

— display system information 

— extend axis 
— HELP 



INTEHACTIVE DIGITIZING TABLET MENU 1 TtefctrOniX 



CURRENT 


TTT 




TIT 


END 

OBJECT 


"T 




SET 

SYMBOL 


SELECT 
SYMBOL N 


SET 

SYMBOL 

FILE 


PLOT 


S' 


VIEW 

ENV 

PARM 


SET 

SCA A ROT 






DISPUY 

IDS 


DISPLAY 

NAMES 


CLOSURE 




JOYSTICK/ 

WHEELS 


TT 


OBJECT 


OFF 


HELP 




OBJECT 


Tb?,; 
















SET 

DATA FILE 




TOLERANCE 


SET 


ON 


REQUIRE 

OBJECT 

NAMES 


REQUIRE 

OBJECT 


MESSAGES 


MESSAGES 


LOCK 




WORKING 

GRID 


END 

SESSION 


Romi 


POLYLINE 


POLYGON 


YE. 


















INFO 


EXTENSION 


GRID 


DISTANCE 




DEGREES 




TERMINAL 

KEYBOARD 


TOLERANCE 


DISTANCE 

FILTER 






UTILITIES 


CURRENT 

OBJECT 


REDRAW 


WINDOW 


UiyWLAV 

WINDOW 


NUMERIC 

WINDOW 


“cooI^d' 


PREVIEW 






.. 


„ 




RUB OUT 


+ 


- 


1 


2 


3 


4 


5 


6 


7 


8 


9 


0 




' 


OBJECT 


S 


M0»FY 


INSERT 






DELETE 












BACKSPACE 


A 


B 


c 


D 


E 


F 


G 


H 


1 


J 


K 


L 


M 


SPACE 


MOVE 


MOVE 




OUCCT 










- 


18 


H 


.0 


CLEAR 


N 


[Z 


p 


Q 


R 


S 


T 


U 


V 


W 


X 


Y 


Z 


RETURN 



'vX' 



Figure 4. Tablet menu functions are grouped into seven functional blocks. 
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— end current session 

— access UTILITIES 

— redefine control points 

In addition to the tablet menu, a User- 
Definable Key (UDK) overlay is 
provided (figure 5). All the EDIT func- 
tions are duplicated on the UDK over- 
lay. By using the UDKs, the 4050 key- 
board, and the thumbwheels or joystick, 
all editing may be performed at the 4050 
with no need to reference the graphics 
tablet. 



INTERACTIVE DIGITIZING TAPE 1 DISK 1 TABLET MENU 1 




Figure 5. All the EDIT functions are duplicated 
on the UDK overlay. 

The object entry functions of begin arc, 
delete last point, and end object may also 
be entered from the optional four button 
tablet cursor. 

You may preview the data on the 4050 
screen before entering it into the data 
file. Prompt messages appear along the 
left edge of the square data entry display 
area (figure 6). A character in refresh, 
above the left edge of the display area 
reports the current operational status of 
the package. 




Figure 6. A blinking character above the data dis- 
play area provides status information: 

E - points may be digitized or tablet menu items 
selected 

I - Input from the tablet keyboard 
M - Edit (modify) mode 
D - Display Coordinate 
P - Preview Coordinate 



Special Features 

Interactive Digitizing includes a number 

of features to make digitizing easier, 

quicker, and more convenient for you. 

These include: 

• Immediate Editing — While entering 
an object, you can delete the last digi- 
tized point or the current object, edit 
the object name or attributes, or re- 
specify the scale or rotation of text 
and symbol objects without explicitly 
entering the EDIT mode. This makes 
input errors easy to correct. 

• Audio Feedback — A single bell sig- 
nals acceptance of a digitized point, 
and multiple bells signal a warning or 
improper input message. They may be 
turned on or off. 

• Selectable Viewing Windows — You 
may select from three different win- 
dowing functions the document area 
you wish to view on the screen. Re- 
draw functions are optimized to ac- 
cess only those objects intersecting 
the currently selected window. 

• System Configuration Files — You on- 
ly set peripheral device addresses 
once, or when they change. The sys- 
tem automatically remembers them. 

• Axis Extension — You can easily han- 
dle documents larger than the tablet 
surface, such as long stripcharts. Just 
select two points, reposition the docu- 
ment, and redigitize the original two 
points. The system automatically ad- 
justs the tablet to user coordinate sys- 
tem transformations. 

• Tablet Menu Keyboard — By 
selecting the tablet menu keyboard, 
you can answer all ENTRY/EDIT 
prompts from the tablet, without re- 
turning to the terminal keyboard. 

• Area/Length/Centroid Computations — 

You may compute at any time and di- 
rect the output to a line printer. The 
results of these computations may al- 
so be placed in the Standard Format 
File and Graphic Exchange File. 

• Auto Mode for Repetitive Entry — 

Auto object end combined with poly- 
gon closure (automatic closure of a 
polygon object when the next point 
digitized is within a user-specified 
tolerance of the first point), require 
object names and require object attrib- 
utes increases efficiency for repetitive 
data entry. As each object is closed, 
the program will prompt for its name 
and attributes, then automatically 



store it in the digitized data file. Com- 
bining the four button cursor and auto 
object end allows for repetitive entry 
of similar object types without having 
to return to the tablet menu. 

• Snap-to- Grid/ Axis Lock — You may 
elect to digitize points in user-speci- 
fied increments, for example, 100 
feet. The next point digitized is 
snapped to the nearest grid point with 
snap-to-grid on, and/or the nearest 
axis with axis lock on. 

• User-Specified Coordinate System — 
You digitize your application coordi- 
nate units with independent scaling of 
the axes. 

• HELP — 

HELP will instruct you in 
the operation of any menu box or 
User-Definable Key. 

UTILITIES 

Interactive Digitizing provides a full 
complement of utilities programs. The 
UTILITIES section is accessed from the 
4050 keyboard. A master screen menu 
controls the function selection (figure 7). 
The User-Definable Keys interrupt any 
utility and return control to the start of 
the currently active utility, to the master 
selection menu, or end the current ses- 
sion. 



« PLOT 50 INTERACTIUE DIGITIZING UTILITIES >> 



Function key 10 (Utilities) and 20 (End Session) are active. 
All others uill restart the utility. 

INTERACTIVE DIGITIZING FILE UTILITIES 



1. Get Files 

2. Put Files 

3. Delete Files 

4. Renane Files 

5. Directory 



INTERACTIVE DIGITIZING SYSTEM UTILITIES 

6. Edit/Display Synbol File 

7. Change Disk Configuration 

8. Edit Default EnvironHental Paraneters 

9. Change Harduare Configuration 



GENERAL INFORMATION 



12. Return to Entry/'Edlt 
Select one of the above: 



Figure 7. The UTILITIES routines are accessed 
through the screen menu. 

Three major functional groups comprise 
the utilities: those dealing with data files, 
those which modify the current system 
configuration, and those providing gener- 
al information. 

Interactive Digitizing recognizes five sep- 
arate file types: 
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Digitized Data — encoded document 
Symbol — symbol set 

GMX Picture — 

GMX FONT - ( plot 50 
^ f transmittal 

Standard Data — ) files 

UTILITIES programs rename, delete, 
and list a directory of all files. In addi- 
tion, the standard functions of GET 
FILES and PUT FILES transfer files be- 
tween mass storage devices and other 
PLOT 50 software products. 

Symbol files (figure 8) may be created 
from digitized files, edited, displayed or 
plotted by the EDIT/DISPLAY SYM- 
BOL FILE utility. 

The current or default values for disk se- 
lections, peripheral device addresses, 
and environmental parameters can be 
changed any time by using the other 
UTILITIES. 

The General Information utility, LIST 
DATA FILE, provides screen or line 
printer output of coordinates, attributes, 
and computations associated with a digi- 
tized data file. 

As with the ENTRY/EDIT section, 
HELP is available for refresher informa- 
tion on how each utility operates. 




Figure 8. Symbols created using Interactive Digi- 
tizing, Symbols may be included in any digitized 
datafile. 



DATA FILES 

Three major levels of access to digitized 
infomration is provided: GMX, Standard 
Data and Digitized Data files. 

The information in the digitized data file 
consists of that associated with the file 
as a unit, e.g., number of objects in the 
file, data file extent, aspect ratio, and 
that associated with each specific object, 
e.g., number of points per object, object 
ID, object name, coordinates, object at- 
tributes, and computations. 



All of the information in a digitized data 
file may be stored in the GMX file trans- 
fer format. Data file global information is 
recorded in the file descriptor records, 
and object specific information is record- 
ed as object descriptor records and point 
descriptor records^. 

Object geometry and object attributes 
(numeric only) may be output in two 
separate Standard Data files (see figures 
9a-9b). 

In addition to the GMX and Standard 
Files, the digitized data file structure is 
fully documented in the manual for those 
users desiring direct access to the digi- 
tized data base. 



^Refer to TEKniques Vol. 5 No. 2 for a full 
description of GMX Picture File 
format. 



4052D07 PLOT 50 Interactive Digitizing 
is a sophisticated, yet easy-to-use system 
supporting a varied equipment configura- 
tion. A 4052 or 4054 with 64K of memo- 
ry, a 4907 File Manager and 4956 Graph- 
ics Tablet is the minimum configuration. 
However, it will also support a 4907 File 
Manager with Option 30 or 31 (dual or 
triple drive units). 

Editing input may be from the 4054 
thumbwheels or a 4952 joystick. 

Graphics output may be directed to a 
4662 or 4663 Plotter; listing output may 
be directed to a 4641 Printer. 

For more information on Interactive Dig- 
itizing, contact your local Tektronix 
Sales Engineer. 



OBJECT ATTRIBUTE STANDARD DATA FILE 



Object-name 



Object 

Type 



Centroid 

y 



Length 



Symbol 

ID 



Attri bute 
1 



Variables are included only as they apply to an included object type. 
For example, if symbols are not written then symbol ID is not included. 



OBJECT TYPES; 



Point 
Li ne 
Polygon 
Text 
Symbol 



Length 

Centroid - x, centroid - y, 

Scale, rotation 

Scale, rotation, symbol ID 



length 



Figure 9a. When object attributes are transferred, an Object Attribute Standard File is the result. 



OBJECT GEOMETRY STANDARD DATA FILE 
VARIABLES 



Object-name 



NOTE: No alpha-numeric 

variables are supported in 
any way. This includes alpha 
attributes and text description. 



Object 

Type 



y Coord. 



Point 

Type 



1 = Point 

2 = Polyline 

3 = Polygon 

4 = Text 

5 = Symbol 



POINT TYPE: 0 = Line Segment 

1 = ARC Start 

2 = ARC Middle 



Figure 9b. When object coordinates are transferred, an Object Geometry Standard File is the result. 
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Graphic Systems Workshops 



4050 Series Graphic Computing Systems 
Workshops are designed to help you get 
the most out of your systems. These 
week-long workshops are held in several 
locations around the country. Dates and 
locations for these workshops are de- 
tailed here. 

The workshops teach the application of 
BASIC and the concepts of desktop 
computer graphics. The classes empha- 
size integrating and using TEKTRONIX 
4050 Series Graphic Computing Systems 
with their associated peripheral equip- 
ment. The full range of Graphic Compu- 
ter System equipment is available in the 
workshops. 

The workshops combine lectures and 
exercises to develop a working knowl- 
edge of system capabilities. Laboratory 
sessions complement and reinforce lec- 
ture information, through developing 
practical examples. When you complete 
a session, you’ll have the skills neces- 
sary to apply the system capabilities to 
your own tasks. 



Locations and Schedules 



The .workshops are scheduled through 
four basic locations, as shown on the 
schedule. Currently, the following places 
and times are scheduled: 



Santa Clara, CA 
Rockville, MD 
Rockville, MD 
Santa Clara, CA 
Dallas, TX 
Santa Clara, CA 
Rockville, MD 
Rockville, MD 
1981 

Santa Clara, CA 
1981 

Dallas, TX 
Santa Clara, CA 
Vancouver, BC 

For Information 



Sept. 14-18, 1981 
Sept. 21-25, 1981 
Oct. 5-19, 1981 
Oct. 12-16, 1981 
Oct. 26-30, 1981 
Oct. 26-30, 1981 
Nov. 2-6, 1981 
Nov. 30-Dec. 4, 

Nov. 30-Dec. 4, 

Dec. 7-11, 1981 
Jan 4-8, 1982 
Jan 18-22, 1982 



If you’re interested in attending one of 
these sessions, or think you might be, 
you can get additional inforamtion by 
contacting your local Tektronix Sales 
Engineer. Or you can call Sam Dunn at 
(503) 644-0161, ext. 8660. She can pro- 
vide information on other workshops as 
well, such as the recently-established 
4020 Series Terminal workshop. 



450K Cartridge Tape 



Have you ever wished you could: 



FIND |3 

MARK 1,450000 



without getting an error message indicat- 
ing the end of tape has been found? 

Now you can. A tape is now available 
that can record up to 450,000 bytes, 50% 
more than the standard tape. The new 
tape can be ordered using part number 
119-1439-01 for a box of five. Contact 
your local Tektronix representative. U.S. 
price for the box of five is $200. The 
standard tape is still ordered by part 
number 119-0680-01 for a box of five. 
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Input/ 

Output 



John Bartholow, a Resource Analyst with 
the Fish and Wildlife Service in Fort Col- 
lins, CO, requests: 

Would you please explain how the BA- 
SIC command RENUMBER works. 
That is, what is the algorithm used to 
perform the renumbering? 

Dan Taylor, Design Engineer at Tektro- 
nix, explains. 



Step 3 . It uses the space allocated 

for the back pointers as 
scratch space to store the 
new line numbers. At this 
point each statement in- 
cludes (among other 
things), the hard address 
of the next line of code, 
the new line number, and 
the old line number. 



Each line of code in memory includes 
(among other things) the internal memo- 
ry address of the preceding line of code, 
the hardware address of the next line of 
code, the line number of the present line 
of code, and the code. 




When you key in the command: 

RENumber 1000, 10, 200 

this is what happens when it’s executed. 

Step 1 . The system checks the 

first line affected (i.e., 

200 ). 

Step 2. It verifies that the new 

first number won’t clash 
with non-renumbered 
code. If it does, it prints 
an error message and 
aborts execution. In other 
words, you can’t change 
the sequence of your code 
through the RENumber 
command. 



Step 4. It searches through all in- 

ternal code for statements 
containing a line number, 
i.e., GOTO, GOSUB, 
GOSUB OF, IF . . . 
THEN, etc. When found 
it changes the line num- 
bers therein to the new 
line numbers. 

Step 5. Once this is done, it 

moves the new line num- 
bers from the scratch area 
(back pointer area) to the 
line number area and re- 
creates the back pointers. 

Because it uses the back pointer storage 
space for the new line numbers, the RE- 
Number command execution doesn’t re- 
quire additional 4050 memory. 

Step 1. Check first line affected. 

X 

RENumber 1000, 10, 200 

/ 

Step 2. Does new number clash with old? 






h/w address 
of next line 
of code 


h/w address 
of back 
line of code 


100 




h/w address 
of next line 
of code 


h/w address 
of back 
line of code 


117 




h/w address 
of next line 
of code 


Step 3 Step 5 


200 


1000 






h/w address 
of next line 
of code 


1010 


224 








h/w address 
of next line 
of code 


1020 


300 








h/w address 
of next line 
of code 


1030 


346 








h/w address 
of next line 
of code 




416 


1040 





1000 — step 4 
GO TO 200 

1020 — Step 4 
IF . . THEN 300 



GO TO 100 



REM 1 
REM 2 
REM 3 

1000 — Step 4 
GO TO 200 
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Operator Digitize 
on the 4663 

Hugh Wilson and Grady Allman of Amer- 
ican ENKA Company, Enka, NC sent in 
their observations on the 4663 Operator 
Digitize Mode on the 4663 Plotter. 

Plotter. 

We could not get the documented “Oper- 
ator Digitize” to work correctly on the 
4663 Plotter. Subsequent firmware revision 
(to level 4.0) and programming tips (TEK- 
niques Vol. 4 No. 6, page 14) failed to resolve 
all the problems. 

As a result of many attempts, we hap- 
pened upon an unexpected and unortho- 
dox solution. Instead of using the GPIB for- 
mat described in the manual for the Plotter 
command, the RS-232 version of the com- 
mand written in a GPIB BASIC program 
works better! Also, we found that INIT did 
not clear the memory of the Plotter as ex- 
pected but the additional WBYTE (@B,4: 
(where B is the primary listen address of the 
Plotter) was required to clear Plotter mem 
ory. Using both of these together appears to 
work correctly, (i.e., as reported in your 
documentation). 

Mike DeAndrea and Javad Farjami, Tek- 
tronix Technical Support specialists at 
Wilsonville, OR, explain the documenta- 
tion error and how INIT and WBYTE 
work. 



The wrong command was inadvertently 
inserted in the “Commands” section of 
the Operator’s manual. The DAB com- 
mand for “Operator Digitize’’ is 
PRICED ,32: “AG”, (# of points) and is 
correctly listed in Appendix I — Com- 
mand Summary. 

Init sends Interface Clear which causes 
the GPIB interface to clear addresses to 
itself and to clear the Service Request 
status. However, as defined in the 



IEEE488 standard, it has no other effect 
on the operation of the plotter. The De- 
vice Clear message according to GPIB 
convention does clear both input and 
output buffers of the plotter and is sent 
by WBYTE @20: for all devices on the 
GPIB or WYBYTE @32 + (device ad- 
dres),4: for a specific device. 



100 


PRI "THIS PROGRAM UTILIZES OPERATOR DIGITIZE WITH THE 4663 PLOTTER. “ 


1 10 


PRINT •• USE MOVE AND DRAW BUTTONS ON 


PLOTTER TO 


ENTER ALL POINTS." 


120 


PRINT ‘'YOU MAY USE 'LAST POINT' BUTTON 


TO STOP DIGITIZING.- 


130 


PRINT NOTE: AFTER ENTERING MAXIMUn 


NUMBER OF 


POINTS. THE NEXT " 


M0 


PRI -POINT ENTERED WILL BE TRANSMITTED 


AS THE 'LAST POINT' WHETHER*' 


150 


PRINT THE DRAW, MOVE. OR LAST POINT 


BUTTON IS 


PRESSED ! " 


160 


PRINT •• ENTER GPIB ADDRESS OF PLOTTER 


: " ; 




170 


INPUT A 






180 


REMARK The VARIABLE B is The primary 1 


isTen address for The ploiier. 


190 


B=A+32 






200 


ON SRO THEN 320 






210 


REMARK This WBYTE commend Is necessary 


TO clear 


The p 1 o 1 T er memor y . 


220 


WBYTE SB, 4: 




230 


PRINT " GGG TYPE IN THE MAXIMUM NUMBER 


OF POINTS 


TO DIGITIZE : 


240 


INPUT P 






250 


REMARK P IS INCREMENTED TO ALLOW FOR 'LAST POINT 


' TRANSMISSION 


260 


P=P+1 






270 


PAGE 






280 


PRINT 6A,32: -AG- ,P 






200 


REMARK z=0 means MOVE 






300 


REMARK z=1 means DRAW 






310 


REMARK z=2 means LAST POINT 






320 


FOR Ul TO P 






330 


INPUT eA,32:X,Y,Z 






340 


GO TO Z OF 370.390 






350 


MOVE X.Y 






360 


GO TO 380 






370 


DRAW X.Y 






380 


NEXT I 






300 


WBYTE 6B.4: 






400 


END 
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* Editor’s 
Note 



Applications Library Programs 
Consolidated 

Quicker turnaround time and dollar sav- 
ings for users should be the result of the 
just-completed Applications Library 
revised order procedure. 250 programs 
have been consolidated into 27 
tapes/disks. An accompanying article de- 
tails the reorganization. 

TEKniques Schedule 

We started the year on schedule with 
TEKniques Vol. 5 No. 1. But due to the 
Applications Library changeover, TEK- 
niques’ schedule slipped and Vol. 5 No. 
2 was distributed in May rather than 
March. Unfortunately, we slipped again 
on No. 3, which is being distributed No- 
vember 11. We will be back on track; 
however, the time remaining allows us to 
do only one more issue. TEKniques Vol 
5 No. 4 will be out December 15. We 
feel the streamlined order procedure for 
the Applications Library will be worth 
the inconvenience. 



Contest Winners Announced 
in Next Issue 

The Applications Library program con- 
solidation required more time than antici- 
pated. Consequently, judging of the 
Graphic Contest was delayed. The judg- 
ing is now in progress and winners will 
be notified by September 1 , and an- 
nounced in the December issue of TEK- 
niques. We apologize for the delay. 



Back Issues and Reprints from 
TEKniques 

TEKniques is in its fifth year of publica- 
tion. Issues from the first three years 
(Volumes 1 — 3) have all been distrib- 
uted. However, most of the articles from 
those issues have been assembled by ap- 
plication area and are available in the 
following reprints : 



Engineering and Design AX 4449 

Mapping AX 44 60 

Data Acquisition and Analysis . . AX4450 
Business Graphing and 

Reporting AX 4451 



Peripherals and ROM Packs . . AX 4452 



If you need an article from one of these 
previous volumes, and don’t have your 
copy, one of the reprint sets will likely 
fill your needs. To obtain a copy of one 
of the reprint volumes, just contact your 
local Tektronix Office or the Applica- 
tions Library Office serving you. 

And, of course, back issues of TEK- 
niques Vol. 4 (1980) and Vol. 5 (1981) 
will continue to be available from the 
4050 Series Applications Library office 
that serves your area. 



Programming Tips Handbook 

The programming tips from the first 
three years have been collected into q 
handy booklet which is included in the 
Programming Aids T2 tape documenta- 
tion (part #062-5972-00). 

Check Your 4907 File Manager 

The first programming tip “Disk Change 
May Damage 4907 Files” contains im- 
portant information. Please follow the in- 
structions in that tip to check the 
operation of all units of your 4907 File 
Manager. 
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by Jack Gilmore 
and Mike DeAndrea 
Tektronix, Inc. 

Wilsonville, OR 

The disk change circuitry in the 4907 de- 
tects when a disk is removed. It prevents 
forwarding of information from one disk 
to the next when changing disks. The 
change is detected differently, depending 
on which drive was used last. 

You can verify that the circuitry is work- 
ing properly without disassembling the 
4907 by performing the following proce- 
dure: 

Step 1: Type “UNIT 0” 

Step 2: Insert a formatted scratch 

diskette in drive 0 and 
type 

CALL “MOUNT”, 0,A$ 

Step 3: Remove and reinsert the 

diskette in drive 0. 



Type CALL“DSTAT”,3,A$ 
(to select 

some other non-existent 
drive). 

Remove and reinsert the 
diskette in drive 0. 

Type “DIR”. A disk not 
mounted error should 
again appear if this part of 
the disk change circuitry 
is working. 

Repeat this procedure for the other 
drives in your system, replacing the 0 in 
Step 1, Step 2, Step 3, Step 5, and Step 
7 with the appropriate drive number. 

If problems are encountered — if the er- 
ror messages don’t appear — contact 
your local Tektronix Service Center. 



Disk Change May Damage 4907 Files 

Step 6; 

Step 7: 
Step 8 : 



Step 4: Type “DIR”. A disk not 

mounted error should ap- 
pear if the circuitry is 
working. 

Step 5: Remount the disk: CALL 

“MOUNT”, 0,A$. 



Convert Decimal to Multiplier Notation 

by Mike Wadzita 
Tektronix, Inc. 

Rockville, MD 

The following subroutine may be useful 
to 4050/492P spectrum analyzer users or 
may apply to other applications that in- 
volve frequency information. The 
subroutine will convert a numeric value 
to its equivalent multiplier format for 
printing, i.e.. Hertz, Kilohertz, Me- 
gahertz, or Gigahertz. A simple drive 
program is included. 



189 IHIT 

110 REH SIMPLE TEST PROGRAM 

120 FOR 1*0 TO 11 
130 F*1.234C10tI 

148 PRINT -1"|F>"I >l"l 

150 GOSUB 210 
160 NEXT I 
170 END 

200 REM CONUERT DECIMAL • TO MULTIPLIER NOTATION 

210 Q$*-gKMG" 

220 F*F*1.0E+10 
230 A$*STR<F) 

240 A*P0S<A$,"EM> 

250 D$*SEG(A$,2,A-2) 

268 M»UAL(D$) 

278 D$*SEG<A$,A-f2»LEN(A$)> 

280 E*UAL<D»)-10 

290 N*N*10t<E-3»INT<E/3+0.33>) 

300 C$*SEG<Q$a>i‘INT(E/3>»l) 

310 PRINT Ml" -|C$|"Hz" 

320 RETURN 



1.234 


> 


1.234 Hz 


12.34 


> 


12.34 Hz 


123.4 


> 


123.4 Hz 


1234 


> 


1.234 KHz 


12340 


> 


12.34 KHz 


123400 


> 


123.4 KHz 


1234000 


> 


1.234 MHz 


1.234E+7 


> 


12.34 MHz 


1.234E+8 


> 


123.4 MHz 


1.234E+9 


> 


1.234 GHz 


1.234E+10 


> 


12.34 GHz 


1.234E+11 


> 


123.4 GHz 
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Auto Log-On for Honeywell TSS 



by Andy Galewsky 
Big Thicket National 
Preserve 
Beaumont, TX 

This auto log-on routine is set up for 
Honeywell TSS. The program assumes 
you know how to turn on the modem 
and connect the phone to it. 

The loop in statement 200 allows the 
connection to settle down before sending 
the carriage return to begin the log-on 
procedure. 

On the Honeywell, the clear-to-send 
character is a Control-Q rather than a 
carriage return. Therefore, statement 260 



sets the alternate EOL (end of line) char- 
acter to Control-Q which enables the 
4050 to recognize the request for the 
password. If this were not done, the pro- 
gram would loop endlessly when the 
mainframe sent the password request. 
The alternate EOL character is reset be- 
fore the program is exited. 

The proper account-number password 
sequence must be inserted into statement 
320. 

This short program offers some interest- 
ing possibilities. Instead of a call “TER- 
MIN’’ at statement 340, you could have 
a BASIC program running in the 4050 is- 
sue commands to the mainframe that 
would be transparent to the user. 



1 REM Auto Log-on Routine 

2 INIT 

3 M$«CHR<13> 
lee PAGE 

110 REM Initialize the conn interface or set paranctcrs 
120 CALL "CMIHIT" 

130 REM CALL . . . 

140 REM CALL . . . 

150 REM CALL . . . 

160 DIM A«<400> 

170 PRINT "Please turn on noden. Diol 838-3761. Log-on will begin." 
180 PRINT "<<<attenpting to connect to renote >>>" 

190 CALL "CMSET" 

200 FOR I-l TO 5e0-f225O«(RND<O)>O.2> 

210 REM DO NOTHING 
220 NEXT I 
230 REM SEND CR 
240 PRINT 840:M$ 

250 REM Set alternote EOL to CTL-Q 
260 PRINT 037,0:17,255,255 
270 INPUT X40:A» 

290 REM Reset EOL to CR 

300 PRINT 037,0:13,255,255 

320 PRINT 040:“Account#*Possword" 

330 PRINT "<« Logged on. Begin ... >>>" 

340 CALL "TERMIN' 



Switchback Plotting 



by Stan Jensen 

State of California 
Air Resources Board 
Sacramento, CA 

Many programs use data arrays and 
commonly output the contents from top 
to bottom, in the left-to-right order that 
printers use. When the number of col- 
umns and rows is small or the output is 
to the 4050 display, the technique is easy 
to program. However, when using the 
plotter, extra time is taken for the pen to 
move from the right column back to the 
left column for starting the next row. 



LIS 

lee REH "Switchback" Output 

ne iHiT 

120 Hl-13 

13d N2-10 

140 B«1 

150 J1-N2 

160 J2«l 

170 J3—1 

175 D«1 

180 FOR R«J1 TO J2 STEP J3 
190 M«UB-«>NU(N0T(B)> 

200 I2«NUB+U(N0T(B)> 

210 I3«UB-1*<N0T<B>) 

220 FOR C«I1 TO 12 STEP 13 

230 REM Plot or print data at colunn Cf row R 

240 REM For txanpit: 

250 MOOE OD:C»10-5,R*1O-5 
260 PRINT 
270 NEXT C 
280 B-NOTCB) 

290 NEXT R 
300 END 



The variable B controls the horizontal di- 
rection of each row: 

B = 1 for left-to-right 
B=0 for right-to-left 

Line 280 reverses the direction used on 
the previous row. In addition to saving 
time when plotting, this feature will often 
cause observers to ask “How did they 
do that?” 



When plotting large arrays and using the 
low speed setting of the 4662 Plotter, the 
following technique can save time. 



Easy Curves Revisited Again 

by Richard Stage 

Stage Engineering, Inc. 

San Diego, CA 

I finally got around to trying the Easy 
Curves routine featured in TEKniques 
Vol. 3 No. 4 and again in Vol. 3 No. 8. 
However, I found it still divided by zero. 
Line 460 appears to be in error. It should 
read the same as line 380: 



460 M2»<X3-X2)/<Y2-Y3> 



I made this change and it seems to work. 
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Omn-Direction Arrows Update 



by Ir. A. C. Visser 

Institute for Land and 
Water Management 
Wageningen, 

The Netherlands 

The calculation of the coordinates for 
drawing an arrow as described in TEK- 
niques Vol. 4 No. 6 can be done much 
easier than is listed in the program. The 
following program positions and orients 
the arrows in the same way, i.e., move 
the plotter joystick until the arrow tail is 
positioned, then press User-Definable 
Key (UDK) #1. Next, position the ar- 
row head and press UDK #1. The arrow 
will be drawn. Continue until all arrows 
requested have been positioned and 
drawn. 



1 INIT 

2 SET KEY 

3 GO TO 102 

4 GO TO 302 

5 REM KEY NO. 1 IS TO ENTER DATA »»<■ 

90 REM THIS IS A SUBROUTINE TO DRAW ARROWS ON SCREEN «« 

92 REM IN ANY DIRECTION «« 

102 SET DEGREES 
104 Ll=l 
106 L2=0.5 

170 PRINT "LNO. OF ARROWS: "j 
180 INPUT N1 
185 PAGE 
230 DIM G(N1 .4) 

240 FOR 1=1 TO N1 - 

250 T=0 A 

260 GIN @1 :V,W 
270 MOVE V,W 
280 PRINT @32. 18:5 
290 PRINT @32.24: " | " 

300 GO TO 260 A:GU. t ).GCI.2) 

302 GIN V.W B:G(I.3).G(I.4) 

304 RDRAW 0.0 
306 PRINT " 6GG " : 

310 PRINT @32. 18:0 

315 REM CHECK FLAG TO SEE IF INPUT IS THE TAIL OF 




ARROW MST ENTRY) 
320 IF T=1 THEN 370 
330 GCI. I )=V 
. 340 GCI.2)=W 
350 T=1 
360 GO TO 260 



365 REM mh FOUND DELTA X AND DELTA Y 
370 M1=G(I. 1 )-V 
380 M2=G(I.2)-W 

385 REM CHECK TO SEE IF IT IS A SAME POINT 
390 IF Ml=0 AND M2=0 THEN 690 
500 B3=1/SQR(M1-'2+M2''2) 

510 BI=MUB3 
520 B2=M2«B3 
530 MOVE G(I. 1 ).G(I.2) 

540 G(I.3)=V+LUB1 
550 8(I.4)=W+L1hB2' 

560 DRAW G(I.3).GCI.4) 

570 RDRAW L2**B2.-L2mB1 
580 DRAW V.W 

590 DRAW V+U«B1-L2<*B2.W+L1hB2+L2*B1 
600 DRAW G(I.3).G(I.4) 

610 GO TO 710 

690 PRINT “NO ARROW" 

700 1=1-1 
710 NEXT I 
720 END 



The differences between the old version 
and the new version are: 



Differences between the old version (TEKniques 4,6 page 2t ) and 
the new version (developed by Ir . A . C . V I sser ) of drawing omni- 
directional arrows. There are In the new version no particular 



DELETED: 

100. 100 
110.160 
190.220 
395.490 
540.680 
720.990 

CHANGED: 

3 GO TO 102 

4 GO TO 302 

170 PRINT "LNO. OF ARROWS: 

230 DIM GCN1.4) 

370 M1=G(I. 1 )-V 
380 M2=G(I.2)-W 

NEW: 

104 Ll=1 

105 L2=0.5 
302 GIN V.W 
304 RDRAW 0.0 
306 PRINT "GGG" ; 

540 G(I.3)=V+L1»B1 
550 G(I.4)=W+L1«B2 
560 DRAW G(I.3).G(I.4) 

570 RDRAW L2hB2.-L2*BI 
580 DRAW V.W 

590 DRAW V+U»B1-L2hB2.W+L1»B2+L2hB1 
600 DRAW G(I.3).G(I.4) 

610 GO TO 710 
720 END 



The new version does not force the near 
horizontal or near vertical lines to hori- 
zontal or vertical as in the old version. 

By changing the values LI and/or L2, it 
is possible to change the dimension of 
the top of the arrow. (LI and L2 have 
the same values as the old version.) To 
draw other tops of the arrows you can 
use program alterations: 




Determining if a String is Defined 



by Herman D’Hondt 
Tektronix, Inc. 

Sydney, Australia 

Some time ago when writing a program 
that consisted of several overlays, I had 
to find a way to let the program deter- 
mine whether or not a certain string vari- 
able had been defined (in a previous 
overlay). 

Several methods came to mind immedi- 
ately, including: 

109 IF LEN<A$)>0 THEN 1900 

100 A$«A$fl234" 

110 IF UAL(A$)«1234 THEN 1000 



Unfortunately, these will only work if A$ 
has been defined, or at least set to a 
null-string. If A$ is undefined, those and 
similar checks will generate a fatal error, 
and the program will abort. 

After some thought, I came up with the 
following little routine: 



100 A$«REP<"M,0) 

110 IF LEN<A$>>0 THEN 1900 
120 INPUT A$ 



I use arrows to check digitized data. 
When digitizing lines, for example roads, 
the instructions are to stop on each knot 
of the lines. To check digitizing, the ar- 
rows are drawn on the beginning and 
ending of each line segment. 




The REP function in line 100 does two 
things : 

(a) If A$ has been defined previously, 
it is left unchanged by inserting a 
null-string at character position 1, 
and deleting 0 characters. 

(b) If A$ is undefined, it is defined as 
a null- string. 

Either way, line 110 checks to see if A$ 
actually contains data. If not, line 120 
asks the user for input. 

Editor’s Note: This routine was also con- 
tained in ‘‘Program Initialization,” Vol 4 
No. 6. 
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Area Calculation — Update No. 1 



by D. F. Davey 
Department of 
Physiology 
McGill University 
Montreal, PQ, 

Canada 

The area calculation routine provided by 
Bernie Gunn (TEKniques Vol. 4 No. 8) 
can be simplified: 

REMOVE ABS from line 3100 
DELETE lines 3110, 3130, 3140 



Furthermore, the restriction that “the 
area must be digitized in a clockwise di- 
rection” only applies if one insists that 
the printed area be positive. The restric- 
tion can be dropped and positive results 
ensured by changing A3 in line 3160 to 
ABS(A3). 



Area Calculation — Update No. 2 



by Stan Jensen 

State of California 
Air Resources Board 
Sacramento, CA 

While testing “Area Calculation” (TEK- 
niques Vol. 4 No. 8) on a circle with a 
calculated area of 7854 units, we found 
that the program seems to have a logic 
error in statement 3100 and will occa- 
sionally generate a syntax error if 
statement 3120 is branched to for the fi- 
nal point. Below is the correct version. 

We also eliminated some unnecessary 
statements and moved the ABS function 
to line 3150. If the area (A3) in line 3140 
is positive, the line segment is clockwise 
about the area; a negative area indicates 



a counterclockwise direction. The new 
version operates significantly faster. 

Editors Note: Statement 3130 in the origi- 
nal version should have read: 

GOTO 3150 



3000 REM: Begin area calculation 
3010 01«I 
3020 RETURN 

3030 REM: End area calculation 
3040 A2=I-1 

3050 REM: A3=Total area 
3060 A3»0 

3070 X<A2+l>=X<Al> 

3080 Y(A2+l)»Y<Al) 

3090 FOR J»A1 TO A2 

3100 A3=A3+<X<J+1)-X(J>)»<Y<J+1>+Y<J)) 
3130 NEXT J 
3140 A3=0.5*A3 
3150 A3>ABS<A3) 

3160 PRINT "lAREA «''|A3 
3170 RETURN 



CALL “MOUNT” and 4907 Timing 



by W. J. Orvis 

Lawrence Livermore National 

Laboratory 

Livermore, CA 

When using a 4907 disk drive with a 4054 
computer, a slight timing error can some- 
times cause the 4054 to lock up busy. As 
part of our programming, we must occa- 
sionaly change a disk in the disk drive. 
This is usually accomplished by a se- 
quence of statements like the following: 



500 PRINT "INSERT THE PROGRAM DISK AND PRESS RETURN:"} 
510 INPUT Z$ 

520 CALL "MOUNT", 0,S$ 



This will usually work just fine, except tion in line 510 to complete before exe- 
in the case where the disk has previously cuting line 520. Do this by inserting a 
been inserted and mounted. Normally, blank remark statement at line 515. 
the 4907 will mount the disk and return a 
status message to the 4054 which is 
stored in S$. If the disk was already in 
place and mounted, then the 4907 only 
sends back the status message. Occa- 
sionally, in a large program, the status 
message appears to be returned too 
soon, and conflicts with the memory op- 
erations taking place in the previous 
state. This results in the 4054 locking up 
busy waiting for the status message that it 
missed. 



515 REM 
RUNie0e 



500 PRINT "INSERT THE PROGRAM DISK AND PRESS RETURN:"} 
510 INPUT Z$ 

515 REM 

520 CALL "MOUNT", 0,S$ 



Correcting this problem is quite simple, 
as all we must do is to waste a few ma- 
chine cycles to allow the memory opera- 
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PRINT USING to Disk 



Once a carriage return has been issued 
by the File Manager during a PRINT op- 
eration when using a format string, it 
must be redirected to the format string 
or it reverts to the default format.* Two 
readers have suggested methods for 
printing formatted arrays to the disk. 

by J. W. Ball 

U.S. Dept, of the Interior 
Geological Survey 
Menlo Park, CA 

The 4907 checks to see if 72+1 charac- 
ters are printed; if so, it issues a carriage 
return and reverts to the default format. 



lee iHiT 

lie DIM e<8>,B(6>,e$(2ee> 

120 FOR I-l TO 8 
130 

140 NEXT I 

150 FOR 1-9 TO 14 

160 B<I-8>«I 

170 NEXT I 

180 KILL "TEST2" 

190 CREATE "TEST2%''A''J1,0 
200 OPEN ■'TEST2''[1,-F",A» 

210 PRINT #l: USING "14<6D.2D)*:A,B 
220 CALL "REHINDM 
230 INPUT «1:A«,B$,C« 

240 PRINT Ml: A* 

250 PRINT M1:B« 

260 PRINT Ml:C$ 

270 A$-A$iB« 

280 A«-A$t<C$ 

290 PRINT Ml: -LENGTH (SHOULD BE 126) 
300 END 



"1LEN(A$> 



By dividing the data items between two 
PRINT statements, the format is re- 
tained. 



*See TEKniques Vol. 4 No. 3, ‘‘Printing 
Arrays to Tape or Disk.” 



from a single IMAGE statement. That 
means the slash specification in an IM- 
AGE will always cause problems. It is 
particularly obvious with arrays. The fol- 
lowing examples illustrate the problem 
and how to overcome it. 



In the following example, the same oper- 
ation is performed using a random-access 
file: 



by Tom Price 
Lorillard 
Greensboro, NC 

The 4907 supports PRINT USING under 
most circumstances, but does not allow 
multiple lines to be correctly printed 



100 INIT 

110 DIN A<8>,B(6),A«(200> 

120 FOR I-l TO 8 

130 A<I)-I 

140 NEXT I 

150 FOR 1-9 TO 14 

160 B<I-8)-I 

170 NEXT I 

180 KILL -TEST2- 

190 CREATE -TEST2-,-A"|2,73 

200 OPEN -TEST2-|1|-F-,A$ 

210 PRINT il,l: USING *8(6D.2D)-:A 
215 PRINT #1,2: USING -6<6D.2D)":B 
220 CALL -REWIND-, 1 
230 INPUT «1,1:A$ 

235 INPUT #1,2:B# 

236 PRINT M1:A$ 

237 PRINT 05l:B$ 

240 A$-A«t<B« 

270 PRINT 051: -LENGTH (SHOULD BE 126) 
280 END 



->LEN(A$) 



100 DIM A(5,2) 

110 A-0 

120 OPEN -TEST-11,' 


F-,A$ 


130 PRINT il: USING 140’. A 


140 I MAGES (3D3D/) 
150 CLOSE 




160 OPEN -TEST-Jl,' 
170 INPUT #l:A# 


R-,A* 


180 PRINT A« 




190 IF TYP(l>-2 THEN 170 


200 END 




RUN 




0 0 
0 


0 


0 


0 


0 


0 


0 


0 



100 


DIM A(5,2) 


110 


A-0 


120 


OPEN -TEST-Jl, "F",A$ 


121 


FOR I-l TO 5 


130 


PRINT il: USING 140:A(I,1),A(I,2) 


131 


NEXT I 


140 


IMAGE 3D3D 


150 


CLOSE 


160 


OPEN -TEST-J1,-R*,A* 


170 


INPUT «i:a« 


180 


PRINT A$ 


190 


IF TYP(l)-2 THEN 170 


200 


END 


RUN 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 



100 INIT 

110 DIN A(8),B(6),A«(200) 

120 FOR I-l TO 8 

130 A(I)-I 

140 NEXT I 

150 FOR 1-9 TO 14 

160 B(I“8)-I 

170 NEXT I 

180 KILL -TEST2- 

190 CREATE -TEST2-,-A-|l,0 

200 OPEN -TEST2-11,-F-,A# 

210 PRINT il: USING -8(6D.2D)":A 
220 PRINT «l: USING -6(6D.2D>":B 
230 CALL -REWIND-, 1 
240 INPUT »l:A$,B$ 

250 PRINT 051 :A$ 

260 PRINT 051 :B$ 

270 A*-A«t<B« 

280 PRINT 051: -LENGTH (SHOULD BE 126) - -|LEN(A«) 
290 END 



Renaming Tape File Headers — Update 



by Anne Thanhouser 
Tektronix, Inc. 

Wilsonville, OR. 

The programming tip carried in TEK- 
niques Vol. 5 No. 1 for renaming tape 
headers had one omission in the restric- 
tions. Restricton #3 should read: 

Character 17 is normally P (program), 
D (data), T (text) or L (last). 
However, the two requirements are 
that the character has to be P if the 
file is to be “autoloaded” or if it’s a 
binary program. In all other cases, it 
can be any printing character. 

The revised program is included below. 
Changes were made in statements 170, 
425, and 540 to 590. 



100 in: 
110 pr: 
120 pr: 

130 PR 
140 PR 
150 PR 
160 PR 
170 PR 
180 PR 
190 PR 
200 PR 
210 PR 



[NT ■ 



.ITAPE HEADER LABELING PROGRAM* 



[NT "Thi, proaran inserts labels In the headers of tape files. “i 
’NT " You can insert.up to 22 characters in each header. These *i 
■can be any printing characteri.subject to the fol lowing rules:* 
NT *J 1. Positions 15 to 32 cannot have nunbers. * 

* 2, AUTOLOAD t BINARY proas nust have a 'P' in position 17.* 

NT * 3. An 'S' in position 27 assunes the proaran is Secret.*} 

NT * The 4051. will not be able to load it unless it is.* 

NT *JIf you violate any of these rules> the proaran will take* 

. ^HT "appropriate action. J* 

220 PRINT *To endr enter '0' for the file nunber.J* 

230 DIM Z$(t>,N*<23>,P$<l>,Q«a>,R«<l),C$<2>,S$<2> 

240 C»-CHR<13) 

245 S$-CHR<19) 

250 C*>C$I,S* 

260 REM *tt REQUEST FILE • I NAME U* 

270 PRINT "ENTER FILE • *} 

280 INPUT N 

290 IF N-0 TNEN 700 

295 PRINT * B* 

300 PRINT * A P S* 

310 PRINT ■KXNKmX)<01234567890123456789012}<XXmNXXXNX* 

320 PRINT *JJENTER FILE NAME KKK" 

325 PRINT * / 7*} 

330 PRINT USING •24<**H*">S“: 

340 N»-* 

350 INPUT N» 

360 N*-REP<N«,1,LEN<M»» 



If you already changed some binary pro- 
gram headers and omitted the “P” in 
byte 17, simply use this program again to 
re-insert it. 



370 REM Ut READ TAPE HEADER *** 
380 PRINT 033)0:0.0,1 
390 FIND N 
400 INPUT 033: A» 

T=SEG<A*,17,1) 



440 REM tn CHECK FOR SECRET PROGRAMS ttt 
450 M$-SEG<A$,27,1> 

460 IF M*-*S* AND R$<>*S" THEN 680 
470 IF R$»*S* AND M*0*S" THEN 720 



530 GO TO 300 



550 P»»SEClRf,17,Il 

555 IF Q$0*P“ OR P$-"P« THEN 610 

560 IF B»0*B" THEN 575 

565 PRINT ‘JJJJBINARY PROG HEEDS 'P' IN POS 17* 

570 GO TO 295 

575 IF HOI THEN 610 

580 PRINT "JJJJAUTOLOAD PROG NEEDS 'P' IN POS 17, WANT TO CHANGE IT? *) 
585 INPUT Z» 

590 IF Z4-*Y" THEN 300 

600 REM ttt REPLACE HEADER U* 

610 FIND H 
620 A»>A$«<C$ 

630 PRINT 033: A* 

640 CLOSE 

650 PRINT 033,0:0,0,0 
655 PRINT *L* 

660 GO TO 220 

670 REM tn ERROR MESSAGES AND END ttt 

680 PRINT "JJJJYOU'RE ABOUT TO MAKE THAT FILE SECRET. PLEASE TRY AGAIN" 
690 GO TO 300 
700 FIND 0 
710 END 

720 PRINT "FILE IS SECRET, CHAR «27 SHOULD BE 'S'. PLEASE TRY AGAIN.* 
730 GO TO 300 
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Clock on 4050 Screen 



by J. Bruursema 

Dutch Land Registry Office 
Apeldoorn 
and Ir. A. C. Visser 

Institute for Land and 
Water Management 
Research 
The Netherlands 



Between demonstrations, performances, 
etc., a clock on the 4050 screen will in- 
form passersby of the time. Change 
statement 620 for accurate timing. 




39a GO TO 300 



CIUEM AT •JP9»* HOURS" 



420 IMAGE 12A,2D.2L.- 
430 FOR 1«1 TO 12 
440 HOME 65>S0 
450 ROTATE -30*1 
460 RHOUE 41.0 
4F0 RDRAU 9,0 
480 NEXT t 
490 HOME 65,50 
500 ROTATE 90-30*H-H^2 
510 RDRAH 30,0 
520 HOME 65,50 
530 ROTATE 90-6*H 
540 RORAH 40,0 
550 HOME 65,50 
560 ROTATE 90-6«S 
570 RHOME 41,0 
580 RDRAU 9,0 

600 REH Change the value in the statenent below 
610 REH when the clock goes too fast or too slow 
620 FOR 1-1 TO 215+1725«<RMD<O>>0.2> 

630 NEXT I 
640 S-S>1 

650 IF 5»INT<S/5)-3 THEN 550 

660 HOME 65,50 

670 ROTATE 90-6»S 

680 RHOME 45,0 

690 RDRAH 5,0 

700 IF 3<59 THEN 620 

720 PgINT "yCCCHOU THE DEHOHSTRATIOH 18 BECINNINGII" 

740 PRINT "JGCTHE TIHE, YOU ENTERED, CANNOT BE CORRECT. START AGAIN.' 



READing 4907 Data Files and Program DATA Statements 



by Tom Price 
Lorillard 
Greensboro, NC 

Code which reads DATA statements 
should not immediately follow code that 
OPENS a disk data file for read-only ac- 
cess. A READ command must be direct- 
ed to the open file before information 
can be properly read from DATA state- 
ments, or a PRINT command must be 
executed. 



100 INIT 

110 OPEN “testl-llCRNAt 
120 FOR 1*1 TO 3 
130 READ C$ 

140 PRINT C$ 

150 NEXT I 
160 DATA "first" 

170 DATA "s«C 0 Ttd" 

180 DATA "third" 

190 END 
run 

second 

third 



100 INIT 

110 OPEN "testl"ll>"R%A$ 
120 PRINT "" 

130 FOR 1*1 TO 3 
140 READ C$ 

150 PRINT C$ 

160 NEXT I 
170 DATA "first" 

180 DATA "second" 

190 DATA "third" 

200 END 
run 

first 

second 

third 



READ command to the open file sets internal 
pointers. 



100 INIT 

110 OPEN "tcstl"il,"R'',A$ 
120 READ «l:Hf 
130 FOR 1*1 TO 3 
140 READ C$ 

150 PRINT C$ 

160 NEXT I 
170 DATA "first" 

180 DATA "second" 

190 DATA "third" 

200 END 

run 

first 

second 

third 



Notice the first data item is not read. ^ print operation will also set the pointers. 



100 OPEN "TEST"n»"f%A$ 
110 FOR 1*1 TO 3 
120 READ A$ 

130 PRINT At 
140 NEXT I 
150 DATA "First" 

160 DATA "Second" 

170 DATA "Third" 



run 

First 

Second 

Third 



Opening the file for Full access will avoid 



incorrect data read. 



Shellsort — Update 



by Brian Diehm 
Tektronix, Inc. 

Wilsonville, OR 

In TEKniques Vol. 4 No. 8, Dr. Bernard 
Gunn submits a shellsort routine that is 
faster than traditional bubble sorts. His 
algorithm is clever and does work as list- 
ed, but the initialization of the sort may 
be quickened and shortened by perform- 
ing the following change: 

DELETE lines 250 through 270 
INSERT line 260: 



260 D*2tINT<L0G<N>/L0G<2)-H> 



Particularly for sorts with large numbers 
of elements, this initialization will be 
faster than incrementally “trying” pow- 
ers of two until finding the first one larg- 
er than N. 

The complete listing of Dr. Gunn’s algor- 
ithm, corrected as above, is listed below: 



100 INIT 

110 PRINT "LHOM MANY RANDOM NUMBERS DO YOU HANT TO SEE SORTED? ‘ 
120 INPUT N 
130 DIM A<N) 

140 A— 1 
150 A-RND(A> 

160 A-1000*A 
170 A-INT<A) 

180 PRINT A 

190 PRINT "« SHELLSORT STARTED **" 

200 D-2tINT<L0G<N>/L0G(2)+l) 

210 D«INT<<D-l>/2) 

220 IF D-0 THEN 350 
230 I1-IHT<H-D> 

240 FOR I-l TO II 
250 >1 
260 L-J+D 

270 IF A<L)->A(J> THEN 330 
280 T1-A(J> 

290 A<J)-A<L> 

300 A<L)-T1 
310 J-J-D 

320 IF J>0 THEN 260 
330 NEXT I 
340 GO TO 210 

350 PRINT ■** SHELLSORT FINISHED *»" 

360 PRINT A 
370 END 
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Modified Auto-Paging 



Update 



by Anthony V. Hewitt 
U.S. Naval Observatory 
Flagstaff, AZ 

The subroutine described in TEKniques 
Vol 4. No. 6 is useful but inflexible. Be- 
cause not every output page causes a 
page-full, the operator cannot change the 
behavior of the program on a page-full 



condition by using such commands as: 
PRINT @32,26: 3. The following rou- 
tine has the function: 

IF (the page is almost full) FILL IT 
RETURN 

which overcomes this limitation. 



999 REH PAGING SUBROUTINE 

1000 GIN X,Y 

1010 IF Y>20 THEN 1040 
1020 PRINT 
1030 GO TO 1000 
1040 RETURN 



X,SUMX 



by Pete Nelson 
Tektronix, Inc. 

Beaverton, OR 

The following line of code was placed in 
a 4051 with X dimensioned as a matrix: 

160 PRINT (?Q: USING 170: X,SUMX 

When LISTed or SAVEd it appears as: 

160 PRINT 8Q: using 170:XSUM(X) 



LIS 

lee iNiT 
lie Q>32 
120 DIM x<20) 

130 FOR I-l TO 20 
M0 X<I>-It2 
150 NEXT I 

160 PRINT eo: USING 170:XSUM(X> 

170 IMAGE 2K5D) 

180 END 

RUN 

1 4 9 16 25 36 4S 

225 256 289 324 361 400 2870 

FIND 4 

SftUE 

FIND4 



81 100 121 144 169 196 



or, since PRINT USING is being done, 
use: 



160 PRINT eo: USING 170:XJSUM<X) 



The work-around is to precompute 
SUMX prior to printing: 



However, the line cannot be recalled and 
reentered as XSUM(X) without a Syntax 
Error occurring. The program with 
XSUM(X) can be stored on tape, but 
halts at line 160 when “OLD”ed into 
memory. 



159 Y«SUMX 

160 print 8Q: using 170:X»Y 



Salvaging Old Tapes 

by David Yager 

Physics Department 

Sam Houston State University 

Huntsville, TX 

Some of our older tapes are unwound by 
our new 4052. The 4052 (and 
occasionally the 4051) refuse to find 
some files on these tapes. We suspect 
the faster winding speed is the reason. 
Rather than spend money on new tapes, 
we’ve found ways to rehabilitate old 
ones. Two remedies that work for us 
are: 

1 . Check the beginning and end of the 
tape to see if the optical load point 
sensor holes are clear. Sometimes the 
punch doesn’t push the plug out of 
the hole. This can go unnoticed by 
the 4051, but will be picked up by the 
4052. 



2. Our tapes have the most used pro- 
grams bunched at the beginning of the 
tape. Often the last half of the tape is 
unused. We’ve been able to rewind 
the tape so the trailing end becomes 
the leading end. This part of the tape 
is usually brand new. The travel limit 
sensor holes must be repunched in the 
old sequence on both ends of the tape 
so that the rewind, autoload and 
“MTPACK” commands do not uns- 
pool the tape. These holes can be cut 
with an X-Acto knife with care. 



Editor’s Note; Tapes do wear out and 
backups should be made. While procedure 
2 may work, Tektronix does not condone 
it and does not guarantee reliability. 
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UDU Commands and GDU Commands 




by Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 



or INPUT @D,24 with MOVE and 
DRAW (D = device #). The results may 
be different than expected, depending on 
your WINDOW. 



The GIN statement (and POINTER com- 
mand) records the current position of the 
cursor on the graphic display in user data 
units determined by the current WIN- 
DOW statement. MOVE and DRAW 
statements also treat their arguments as 
user data units. 

Whereas, the INPUT statement with sec- 
ondary address of 24 treats the incoming 
data as graphic display units and the 
PRINT statement with secondary ad- 
dress of 20 or 21 treats its arguments as 
graphic display units. 

Therefore, don’t use GIN (or POINTER) 
with PRINT (§D,20 or PRINT (§D,21; 



For example, try the following routine to 
see the placings on the screen, depend- 
ing on whether X and Y are treated as 
user data units or graphic display units. 



100 INIT 

110 MIHDOM -10D0f-20p20 

120 PRINT 

130 HOUE 5,15 

140 GIN X,Y 

150 HOME X,Y 

160 PRINT "UDU" 

170 PRINT 032,21;X,Y 
180 PRINT "GDU" 

190 END 



Efficient Subroutine Use 

by Ron Robinder 
Tektronix, Inc. 

Beaverton, OR 

The following guidelines will avoid ineffi- 
cient subroutine use and minimize code 
in a program. 

1. Avoid using a subroutine only once. 
Incorporating a subroutine directly at 
the point of call will eliminate two 
lines of code: the GOSUB statement 
and the RETURN statement. 

2. Avoid one line subroutines unless the 
line is long and complicated. These 



can be repeated in place of the GO- 
SUB statement, eliminating a total of 
two lines of code from the program 
for each one line subroutine.* 

3. Two line subroutines should be called 
at least three times (unless they are 
long and complicated). Any other 
larger subroutine is acceptable for two 
or more calls.* 



*One exception might be if you were go- 
ing to be changing that one-or-two-line 
subroutine and wanted it in one location. 



These guidelines insure a minimum of 
lines of code. Other guidelines may ap- 
ply with regard to run time optimization, 
but I haven’t been concerned with this 
aspect. 



Packing Tapes 

by Deggary N. Priest 

Commercial Testing Co., Inc. 
Dalton, GA 

Regarding your recent article on mainte- 
nance, I would like to comment on the 
“Packing Tapes” section. Using the 4051 
system, you need only FIND n (n 
LAST), MARK 1,400000 one time. 
Thereafter, TLIST will very nicely 
“Pack” the tape. 
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Savings Programs to Disk 



by Dave Kirkpatrick 

U.S. Army Corps of Engineers 
St. Louis, MO 

When editing disk files from the 4907 us- 
ing the Editor ROM Pack with the 4050, 
be sure to transfer the edited file to a 
new and unique disk file. Should you en- 
counter no errors, power failures, or oth- 
er problems, you would then be free to 
kill the original disk file that you were 



editing and rename the newly transferred 
disk file with the old disk file name. Do- 
ing this rather than first killing the disk 
file and re-creating it to hold the edited 
data would avoid losing your only 
remaining copy in case of error. 



Saving Programs to Tape 



by Dr. Ir. F. J. Franck 
Jan van Scorelpark, 12 
The Netherlands 

SAVing a memory-resident program after 
development or modification often repre- 
sents a hazardous manipulation. Several 
mistakes can be made: 

FINDing an unappropriate file num- 
ber and SAVing, thereby overwriting 
another file; 

SAVing the program in NOHEADER, 
NOCHECKSUM or 128 byte format; 

SAVing the program with an extra 
carriage return (after a 
PRINT (^37,26 :1); 

OLDing the program instead of SAV- 
ing it; 

Power failure during the SAVE;* 

Bad spot on tape develops.* 

The following routine may help in re- 
membering the right file number and 



preventing other mistakes. Dedicate one 
User-Definable Key to this purpose or 
start your SAVE routine at an easily re- 
cognizable line number, e.g., 10000 and 
save your program with RUN 10000. 



t * 

t Put your proaran takin fron file N * 

* sonewhere between 100 and 9999 t 

* or behind 12000. t 






IS THE FILE NUMBER Ut 



.-SfiUE 



31 REM 

32 REM 

33 REM 

34 REM 

35 REM 

36 REM 

37 REM 

38 REM 

39 REM 

40 REM 

41 REM 

42 REM 

43 REM 

10000 REM — - 
10010 REM m ' 

10020 H-20 
10030 PAGE 

10040 PRINT 937,26:0 
10050 PRINT 933,0:0,0,0 
10060 FIND N 
10070 CALL ‘HEADER* 

10080 PRINT ‘JSdvc EHAME3 on file ‘|Nr» O.K.CY/N3GGCG''l 
10090 INPUT A$ 

10100 A*-SEG(A«,l,n 
10110 IF At<>"Y" THEN 10180 
10120 FIND N 
10130 SAUE 

10140 REM n* or CALL "B8AUE" *t* 

10150 CLOSE 

■'DoneCGC" 



10160 PRINT 
10170 END 
10180 PRINT 

10190 PRINT 
10200 END 
10210 REM «> 



"PROGRAM HAS NOT BEEN SAUED!’ 
- — GCCCGGGC" 



*To overcome these two events, you must 
have a backup of the program either on 
the current tape, or a separate tape. 



Editor’s Note: If you are using the 4051, cer- 
tain lines of code will have be replaced with 
the following to point out the file header infor- 
mation: 



leese 

10060 

10061 

10062 

10063 

10064 

10065 

10066 
10067 
10070 



PRINT 033,0:0,0,1 
FIND N 
INPUT 033: A* 

PRINT 033,0:0,0,0 

B$-SEG<A$,33,8) 

B«256«UAL<B$) 

B$-STR<B) 

A$-SEG(A$, 1,32> 

A$>A«t.B$ 

PRINT A$ 
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Library Consolidation 



You’ve overwhelmed us! What began 
over five years ago as a rather informal 
method of sharing 4050-Series programs 
has outgrown its usefulness. When it all 
began the Libary had a few programs, a 
few members and we expected (and got) 
only a couple of orders per week. 

Now, with over 200 programs available 
and Library membership growing rapid- 
ly, our mailbox is full of orders each 
morning. To continue to provide efficient 
service to you, we’ve streamlined pro- 
gram ordering. 

We’ve combined like-subject programs 
together on tapes or disks, packaged the 
tape or disk together with the supporting 
documentation and given the package a 
Tek part-number. Now you can order 



programs just like ordering blank .tapes 
or plotter pens, through your local Tek- 
tronix representative. 

Here is a list of the packages now avail- 
able. Packages include the media (“T” 
= tape, “D” = Disk) and documentation 
(without listings). Documentation is 
available separately. 

To find out what is in each package you 
will need the latest issue of the Applica- 
tions Library catalog. Most of you 
should have received one enclosed with 
this issue of TEKniques. (The catalog 
designed to fit in a three-ring binder (Tek 
P/N 016-0367-00) and we will add pages 
later to update it.) If you don’t have a 
catalog, contact your local Tektronix re- 
presentative. 



Package Title Package Part # 

Business Aids T1 062-5987-01 

Business Aids T2 062-5988-01 

CAD T1 062-5976-01 

CAD D1 062-5977-01 

Character Generator T1 062-5951-01 

Education/Research T1 062-5982-01 

Education/Research T2 062-5983-01 

Electrical Engineering T1 062-5978-01 

Graphing T1 062-5964-01 

Graphing T2 062-5965-01 

Graphing T3 062-5966-01 

Graphing D1 062-5967-01 

Graphing D2 062-5968-01 

Interfacing T1 062-5984-01 

Mapping T1 062-5980-01 

Mechanical Engineering 062-5979-01 

Programming Aids T1 062-5971-01 

Programming Aids T2 062-5972-01 

Project Aids T1 062-5985-01 

Project Aids D1 062-5986-01 

Recreational Plots T1 062-5989-01 

SlidemakerTl 062-5962-01 

SlidemakerDl 062-5963-01 

Text Processing T1 062-5969-01 

Text Processing D1 062-5970-01 

Utilities T1 062-5974-01 

Utilities D1 062-5975-01 



In the past, we have exchanged three 
programs of your choice for each new 
program accepted by the Library. Now 
we will offer a full package for each one, 
a considerable increase in most cases. 

New programs not included in this initial 
offering will be combined until we get a 
tape or disk full. New packages will be 
announced via TEKniques and support- 
ing catalog pages will be distributed to 
all Library members. 
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4050 Series Applications Library Programs 



Ordering 

The current system for ordering individual 4050 Series 
APPLICATIONS Library programs will remain in effect until 
December 31, 1981. However, effective immediately you may 
also order programs by the new package system. After De- 
cember 31, 1981, only the packages may be ordered. 

Individual Program Orders (until December 31, 1981) 

Documentation and program listings of each program are avail- 
able for a nominal charge. Programs will be put on tape or disk 
for a small recording fee per program plus the charge for the 
tape cartridge or flexible disk. One tape! disk will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disk and vice versa unless 
so noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, or any kind arising from the use of this program 
material or any part thereof. ) 

Domestic U.S. Prices: 

Documentation and Listing only $25 per program 

Documentation, Listing and Recording Fee 30 per program 
Tape Cartridge 36 per tape 

Flexible Disk 15.. per disk 

Forms 



Packaged Program Orders 
(effective immediately) 

Call your local Tektronix Sales Office and give your representa- 
tive the part number of the package(s)you wish. A price list is 
included with your 4050 Series Applications Library catalog. 

Contributions 

The current exchange system for program contributions will also 
remain in effect until December 31, 1981. However, you may 
take advantage of the package exchange instead. After December 
31, 1981, only the package exchange will be available. 

Three-for-One Exchange 

Contribute one program to the Library and receive three in ex- 
change. Send in the membership card from your 4050 Series Graphic 
System Reference Manual to get the details. Or call us (503) 685- 
3618. 

Outside U.S. 

Program contributions or orders, outside the U.S. must be pro- 
cessed through the local Tektronix sales office or sent to one of 
the Libraries serving your area. See Library Addresses section. 

Package Exchange 

Contribute one program to the Library and recive one package 
in exchange. 



Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 



Since the following program abstracts, 
along with their graphic output (where 
applicable), are contained in the new 
4050 Series Applications Library Cata- 
log, only their description is included in 
TEKniques. See the catalog for their 
graphic capabilities. 

ABSTRACT #: 51/00-6124/0 

Title: 4050/492P Utility 

Author: David B. Green 
Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 32K 
Peripherals: 492P Spectrum Analyzer 
Optional4662 Plotter 
Statements: 1286 
Files: 8 ASCII Program 
9 ASCII Data 
7 Binary Data 
Requires dedicated tape 

This is a demonstration software pack- 
age, however, it contains many useful al- 
gorithms that can be adapted for person- 
l1 application programs. The following 
-^^are the sub-programs in this package. 

Indexing/Menu 

Contains the initial control structure for 
the entire package. Used to access de- 



sired sub-programs and also contains a 
complete list of 492P commands. This 
sub-program also allows direct control of 
the analyzer over the GPIB bus. 

492P Waveform Transmission 

Establishes a single keystroke approach 
which allows you to either transmit or 
receive waveform data. Instrument Front 
Panel Settings may also be transmitted 
or received along with each correspond- 
ing waveform. Provides for simple data 
storage to magnetic tape which will allow 
you to store measurement conditions and 
data. By the stroke of a few User-Defin- 
able Keys, the 492P can be made to re- 
configure to previously made measure- 
ment parameters. 

Spectrum Analysis 

Provides rapid spectrum analysis from 
sweeps made on the 492P. Two types of 
analysis are provided: 

1) This analysis lists and graphs the fre- 
quencies to either side of the signal at 
center screen. Sideband measure- 
ments are made easy with this portion 
of the program. 

2) Direct frequency measurements are 
the function of this section. All sig- 



nals appearing on screen are cata- 
loged and listed on the controller. 

492P Command Syntax Tutorial 

This is a complete tutorial provided for 
the novice. The tutorial provides for the 
user comprehensive instruction in the 
use of the GPIB command syntax used 
in the 492P. As each item is presented, 
the user is allowed to “experiment” with 
each command with help as needed pro- 
vided by the controller. Periodic review 
of this section keeps one’s programming 
skills at a maximum. 

Total Harmonic Distortion 

This sub-program was provided especial- 
ly for sales personnel. It operates using 
only the internal calibrator signal provid- 
ed in the 492P. The program 
automatically searches for and measures 
all requested harmonics of a given fre- 
quency and computes the total Hermonic 
distortion. Measurement results are pro- 
vided in a neat graphics format. 

Utility Programs 

Duplicate tapes. Name tape file headers 
to use for data storage. 
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ABSTRACT #: 51/07-8029/1 

Title: CDOS 4907 Operating System 

Authors: Lunne Cueto 
Carl Dawson 
Tektonix, Inc. 

Rockville, MD 
Orlando, FL 

Revised by: Frits Handgraaf 
Tektronix, Inc. 
Amstelveen, The Nether- 
lands 

Memory Requirement: 16K 
Peripherals: 4907 File Manager 

Optional — 4641 Printer 
Files: 26 Program 
28 Data 

Statements: 1480 



ABSTRACT # 51/00-8043/0 

Title: Micro-Grasp 

Author: Roger W. Bowen 

U.S. Geological Survey 
Reston, VA 

Memory Requirement: 32K 
Statements: 1135 
Files: 3 ASCII Program 

4 ASCII Date (examples) 

Requires dedicated tape 

Micro-Grasp is a scaled down version of 
the USGS Geologic Retrieval and Sy- 
nopsis Program (GRASP). The GRASP 
system is extensively used on a variety 
of small to large scale hosts to access 
many diverse types of data. Micro-Grasp 
retains the major features of GRASP and 
should prove useful on private (or non- 
shared) databases of a small to medium 
size (less tha 300K bytes). Micro-Grasp 
is a command-oriented system which op- 
erates on fixed-field character and/or nu- 
meric data in a tabular form. 

Each database consists of a data defini- 
tion file and a master file. The data 
definition file describes the master file. 
The data definition files contains the 
number of fields in a master-file record, 
the number of characters in a master-file 
record and the number of the master file. 



ABSTRACT #: 51/07-8049/0 

Title: Disk Directory 

Author: Nick Ogbourne 

Comalco Aluminum (Bell 
Bay) Ltd. 

George Town, Tasmania 
Memory Requirement: 8K 
Peripherals: 4907 Fil^ Manager 
Files: 1 Program 
Statements: 193 



CDOS has been modified for one start- 
up program instead of the two contained 
in the original version, and some changes 
made. 

CDOS has been modified to take advan- 
tage of the 4052/4054 and some minor 
streamlining has been incorporated: 

One start-up program instead of two; 

A new APPEND procedure in the 
main program to avoid memory full; 

The system disk may be mounted in 
any drive; 

DISCTOTAPE routine changed for 
optimum file marking; 



This is followed by ’n’ field-description 
records. Each field-description record 
has a field name, data type, beginning 
position, and optional ending position. 

The master file contains the actual AS- 
CII data. Data may be numeric or char- 
acter and must be in a fixed field format. 

Twelve commands operate on the data in 
the data-definition files and the master 
files: 

Help: displays a list and shor description 
of each of the commands. 

File: establishes or changes a data defini- 
tion file. 

Name: outputs the data definition file to 
screen or a selected tape file. 

Inpu(t): creates a master file in prompted 
mode. 

Cond(ition): enters or adds a set of con- 
ditions using valid field names and their 
relation (equal, less than, greater than, 
less than or equal to, greater than or 
equal to, not equal to, or contains string) 
to a value (blank, numeric or character 
string) on which to select data. 



Disk Directory maintains a directory 
of up to 50 disk programs and con- 
trols access to and execution of those 
programs. 

Disk Directory creates and maintains 
an index file. This index file includes 
the file identifier, program # (se- 
quenced in the order entered), and 
user-input information (up to 44 char- 
acters) about the file. Programs may 



New program lines in the FORMAT 
to prevent the system disk from being 
formatted; 

A few other minimal charges for more 
efficient execution. 



Logi(c): completes selection criteria by 
combining conditions (entered earlier) 
with the logical operators: and, or, not. 

Defi(ne): defines new variables which re- 
main in effect until a new master files is 
selected. 

List: displays selected fields for each rec- 
ord which satisfies the selection criteria 
(conditions and logic). 

Revi(ew): displays the number of the 
master fiel, the field names being listed, 
current conditions and logic expressions 
used in the listing. 

Stat(istics): calculates statistics (mini- 
mum, maximum, sum, mean, variance, 
standard deviation) for each specified nu- 
meric field. 

Util(ity): provides copy, tlist, mark, print 
and input. 

Quit: exits Micro-Grasp. 



be added or deleted through the User- 
Definable Keys. 

Disk Directory reads the index file, 
prints a directory of the files (multi- 
page if necessary) and prompts for the 
program of your choice. It will warn 
you if a selected file is a binary data 
file. Any other type of file will at- 
tempt to load. 
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ABSTRACT #: 51/00-9548/0 

Title: Frames 
Author: Mike Tharpe 
Honeywell, Inc. 

Minneapolis, MN 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Statements: 540 
Files: 1 ASCII Program 



Maze 

Boxes within Boxes 
French Provincial 
Cross-Hatched 
Sunburst 
Corners Only 



Instructions for changing the size of your 
border are included. 



For the final touch, frame your slides 



“Frames” consists of 12 different de- 
signs which may be drawn around your 
slide on the screen or 4662 Plotter. 

Spokes 

Circles 

Spokes and Circles 
Straight-Edged 

Straight-Edged with Perspective 
Slants 

Six Pointed Stars 



ABSTRACT #: 51/00-6126/0 

Title: Bibliography Management & 
Search 

Authors: K. Ho and G. Tzitzikalakis 
Columbia University 
^ Dept, of Orthopedic Surgery 

New York, NY 
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Files: 2 ASCII Programs 

1 ASCII Text (example) 

Requires dedicated tape 

These programs store, review and re- 
trieve bibliographical references on tape. 

Management Program 

The program numerically sequences the 
references in the order entered. 

Four Data items comprise the reference: 

author’s name (72 char) 
title (144 char) 

source (144 char) 

content (216 char) 

Content contains the keywords which 
will be used in a search. 

You may review or correct any of the 
references stored on tape by responding 
with the reference number when prompt- 
ed. 

The data files may reside on the same 
tape as the program files or a separate 



tape. However, the tape from the first 
data file to the last must be dedicated to 
this program since the Management Pro- 
gram automatically MARKs files as 
needed and maintains a numeric se- 
quence throughout. 

A mnemonic menu drives the routines: 

ENT — search the last reference on 
tape, get and store new references 
one by one 

REV — search the designated refer- 
ence and print out 

COR — calculate the file number of 
the designed reference, store the file’s 
data in a string X$, correct the desig- 
nated reference and store string X$ 
onto the same file 

SEA — OLD the “SEARCH” pro- 
gram for retrieval of references 
MEN — print list of Mnemonics 
TER — end execution 

Search Program 

This program will search the references 
stored on a tape by the Management 
Program. The search may be based on 
keyword(s) in the content data item, or 
on the author(s) name. Once you choose 
the search mode, you will be prompted 
for the keyword(s). Only when the con- 
tent keyword(s) or the author(s) — de- 
pending on the mode chosen — satisfy 
all keyword(s) input, will the reference 
be retrieved. 



The retrieved references may be printed 
to the screen or plotter, stored on tape, 
or refined and stored on a different tape. 

A mnemonic menu drives the routines: 

KEY — search and retrieve refer- 
ences with keywords on content 
AUT — search and retrieve refer- 
ences with keywords on author 
REF — search and retrieve references 
stored on tape from previous search- 
es, with a different set of keywords 
on content or author 
TAP — store retrieved references on 
tape 

SCR — print retrieved references on 
screen 

PLO — print retrieved references on 
output device (plotter) 

CON — continue the search that was 
stopped due to memory space 
MEN — print list of Mnemonics 
man — OLD “MANAGEMENT” 
program and execute it 
TER — end execution of program 

An example of data file is included with 
the two programs. 
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4050 Series Applications Libraries 



Africa, Europe, Middle East 

Contact local sales office 

Australia 

4050 Series Applications Library 
Tektronix Australia Pty. Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 



Canada 

4050 Series Applications Library 
Tektronix Canada Ltd. 

P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 



Japan 

4050 Series Applications Library 
Sony/ Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4050 Series Applications Library 
Tektronix, Inc. 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 
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